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LEDER 


Vores eks-formand, Gilvad, skrev 
engang om den skrækindjagne pc- 
virus, der smittede gennem disket¬ 
ter. Indtil nu har sygdommen været 
ukendt på MSX, men forleden hvor 
jeg skulle kopiere et program blev 
disketten jeg ville kopiere det på 
ødelagt! Jeg prøvede med en anden 
diskette - den blev også ødelagt!! 
Hvad gør man så. Jo, jeg har jo 
hørt om diverse smitsomme sygdomme 
i fjernsynet, så jeg iførte mig 
gummi-handsker og høreværn, og 
prøvede igen. Så lykkedes det ende¬ 
ligt at få kopieret Basic-compi1er- 
en. Hov! Hvad var det for et ord, 
"Basic-compiler"! Jo, det er ganske 
vist. Klubben er kommet i besidelse 
af et sådant snedigt program der 
oversætter Basic til maskinkode 
men læs videre om det inde i bla¬ 
det . 
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4MHHC- ALLA M8X , ARE -If-H-** 

HEJ ALLA MSX,ARE 


HMr Mr några anvMndbara (?) tips. FBljande rader 
kallstartar datorn om man forsbker LISTa ett prog¬ 
ram: 

PQKE 4HFF8B,4H0Q 
POKE 4HFF8A,4H00 
POKE 4HFF89,4HC3 

Har du trdttnat på dat vanliga "tangentklickandet"? 
Skriv då in foljande: 

POKE 4HFDC4,4H0Q 
POKE 4HFDC3, 4HC0 
POKE 4HFDC2,4HC3 

Raderna nedan genererar samrna ljud nar "Ok” visas. 

POKE 4HFF09,4H0Q 
POKE 4HFF 08,4HC0 
POKE 4HFF07,4HC3 

Da trs nMmnda tipsen anropar MSX:ens så kallade 
"hooks", vilket betyder "krok" eller "hake" på sven¬ 
ska. Mer om dem står det i "The MSX red book". 

Nar jag skrev in seroll-programmet som fanns i Syntax 
nummer 10/88 ville det inte riktigt fungera, men så 
skrev jag in ftiljsnde rader och dl fungerado det. 

860 POKE 4HFDA1,4HD0 
870 POKE 4HFDA0,4H00 
880 POKE 4HFD9F, 4HC3 
900 POKE 4HFD9F,4HC9 

Till sist ett program som simulerar en accelererande 
motor: 

10 REM ACCELERERANDE MOTOR 

20 S0UND 7,4B111000 

30 50UND 8,16 

40 S0UND 11,30 

50 S0UND 12,0 

60 S0UND 13,14 

70 FOR A=15 TO 1 STEP -1 

80 FOR 8=255 TO 0 STEP -1 

90 S0UND 0,B 

100 S0UND 1,A 

110 NEXT B,A 

120 FOR A=1 TO 15 

130 FOR B=0 TO 255 

140 SOUND 0,8 

150 SOUND 1,A 

160 NEXT B,A 

Slutligen skulle jag vilja veta om man får anvanda 
i"Screer» store", "Dump" och "Sload" i sina egna prog¬ 
ram? 


Med vånliga halsningar från Dohan Bergman 
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MSX HARDWARE 


Philips NMS 1200 Floppy'"Diso Intet 
+ -aoe (All Formats / Hils Fornate) 

DM 239, - 

Floppy Disc Drive 720 kE (without 
case / ohne Gehause) 

DM 239, - 

Floppy _D is c Drive 720 kE <with case 
/ ni 1 1 G e h a u s e i 

x DM 279, - 

720 kE MSX Floppy Disc B Drive 

DM379,- 

i i O. k® Mly X F1 o p p y Dis c A Dr i ve 
P h 1 1 1 pS In t ø*f -3 1 ":ø 

DM 599,- 

Philips NMS 1421 MSX Printer 

DM 

Philips NMS 1431 MSX Printer 

D M 6 9 9, - 

b a n y o M P c 6 4 M S X -1 C o m p u. t e r 

DIN Tastatur 

DM 298, - 

Philips VG 8020 MSX-1 Computer 

DIN Tastatur 

DM 298,- 

S p e c t r avide o 72 8 MS X-i Compu t e r 

t! W E R f V k e y b o a r d 
DM 298,- 


MSX SOFTWARE 


A .SMALL SELECTION / EIN KLEINER 

ttusZUy 


S p e c t r avide o 72 8 MS X-i Compu t e r 

t! W E R f V k e y b o a r d 
DM 298,- 

Philips NMb 8220 MSX-2 Computer 

O DD fe! WERTV Keyboard 

DM'539, - 

Philips Vo 8235 MSX!-2 Computer 

i SbDD DIN Tastatur 
DM 898,- 

Philips NMS 8245 MSX-2 Computer 

1 DSDD QUERTV Keyboard 

DM'999, - 

Philips N M S 8 2 8 O M S X - 2 C o m p 11 1 e r 
i 2 DSDD QWERTV Keyboard 

DM '1999, - 

F h i 1 i p s NMb 82 8 u M S X - 2 C o ni p u t e p 

2 DSDD DIN Tastatur 

DM 2197,- 

Toshiba MSX RS-232C Inter-face+Cable 

DM 269,9*5 

Toshiba M S X R S - 2 3 2 C I n t e p 4 . 3 ,= 

DM* 248,95 

Toshi b a RS - 2 3 2 I n t e r 4 a c e C able 

DM 49,95 


RADARSOFT 

D y n a m i c P u b 1 i s h e r M S X - 2 
Br saker MSX -2 
RadX -8 MSX.-2 
•q o o MS X - 2 il c o n - v e n t u r e) 

G R E M LIN G R A P HIC S 

10 Great Games , 

Jack The Nipper II 
O ary Line ker 
Mask II _ 

Master 04 The Universe 
Death Mish III 
Venums Revenye 

MASTERTR0NIC 

Voidr uriner 
F 1 ash Gordon 
Master Chess 
Stormbrinyer 
S t r e a k e r 

KONAMI 

F-l Spirit 

The Treasu.re 04 Usas MSX-2 

S a 1 a m a n d e r 

Nemesis 2 

Metal Gear MSX-2 

Vampire Killer MSX-2 

0THERS / ANDERE 

0 c e a n C o n y u e r o r 
Head Over Heels 
Camelot Harriors 
Liviny Dayliyhts 
I n d i a n a J o n e s 
Abu Simbel 
Army Moves 
C e t u s 
Elite (C > 

Elite <D) 

Tefcris 
G a 1 a x i a n 
Print Lab 
T e n t h F r a m e 
Aliens 
Quasar 


DM 169,- 
DM 47,95 
DM 47,95 
DM 47,95 


DM 29,95 
DM 24 ',95 
DM 29,95 
DM 27,95 
DM 29,95 
DM 24;95 
DM 27.95 


DM 59,95 
DM 62', 95 
DM 62', 95 
DM 62', 95 
DM 62,95 


DM 

62 

95 

DM 

c 

9 S 

■DM 

27 

95 

DM 

29 

95 

DM 

29 

95 

DM 

OQ' 

w -r 

qt 

DM 

29 

95 

DM 

27. 

95 

DM 

q 

95 

DM 

44' 

95 

DM 

54, 

95 

DM 

27, 

95 

DM 

9, 

95 

DM 

97, 

95 

DM 

29, 

95 

DM 

29, 

95 

DM 

9 ; 

95 


Turbo 5000 
dBase II 
Wordstar 
Multiplan 

Multitext v 1.5 <D) 

M u. 11 i t e x t v 1.5 ( G B > 
Multitext v 1.4 <E> 
Devpac 80 
CF'/M + (CP.'M 3 > 

C o m m 


DM 97,95 
DM 227', 95 
DM 227,95 
DM 227,95 
DM 97',95 
DM 97,95 
DM 97', 95 
DM 119', 95 
DM 197,95 
DM 137,95 



















-$!"***- BREV FRA BJØRN *■*■*•* 


BREV FRA BJØRN 

Vi har modtaget følgende brev fra 
Bjørn Bergstrøm i Storvik i 
Sverige: 

Vore tacksam om ni tog upp lite om 
datakomunikation <att per telefon 
få kontakt med databaser). Till 
SVI738 (som jeg har) finns ju 
Videotexprogram med. Men jeg skulle 
vilja ha andra terminalprogram for 
hastigheten 75/1200. 

Vidare några frågor. Hur auto¬ 
starter man ett Basic-80 program? 
Kan man på något sått gora plats 
for mer Basicprogramering t.ex. 
genom att utnyttja plats dår 
grafiken ligger? 

Jeg har tidligare frågat angående 
ett program ni hade med i bladet nr 
2-86 som Kurt konstruerat, men jag 
fick ej något svar. Programmet 
heter Ram-disc. Dår påstår Kurt att 
når man gommer programmet skall 
åven variabler bli sparade, men når 
jag tar fram programmet igen måste 
det ju startas upp och då biir ju 
alla variabler 0. 

Till sist - På senare tid har det 
varit mycket om musik i bladet. 
Varfor? Den som kopt dator har vål 
inte gjort det for att spela musik 
på den? 

!!! Tak for forslaget om at tage 
datakommunikation op som emne, det 
har vi aldrig rigtigt gjort noget 
ud af. Vi har ikke tidligere 
skrevet artikler om dette fordi der 
faktisk ikke har været nogen i 
redaktionen der vist noget særligt 
om emnet. Jeg (Kurt) har længe haft 
et telefon-modem men har ikke brugt 
det så meget, og jeg har først for 
nylig forstået hvordan seriel 
kommunikation præcist er opbygget. 
Gilvad har været i gang længere og 
han må nok betragtes som redak¬ 
tionens ekspert på dette område. På 
det seneste er også Søren (sømand) 
Mortensen og Erik Steen fundet ud 
af mulighederne i seriel kommuni¬ 
kation, så nu skulle vi efterhånden 
have forstand på emnet. 

Vedrørende et terminal program der 


kan køre 75/1200 har jeg set et 
VT100 emulator skrevet af Andrzej 
Felczak som kunne, men jeg ved ikke 
om det kan benyttes til videotex. 
Prøv at kontakte Gilvad direkte han 
kender nok noget som kan benyttes. 

Basic80 er et specielt program til 
SVI738, som gør det muligt at 
benytte 80 tegn i Basic ligesom på 
MSX2ere. Gilvad viste i nr. 1 '88 
et lille program som rettede en 
fejl ved BEEP i Basic80 programmet. 
Basic80 har en anden mærkværdighed. 
Når programmet BLOADes og runnes 
vil det efter initialisering af 80 
tegn gå ud i Basic - og det selvom 
BLOAD kommandoen står midt i et 
program (fx. en autoexec.bas ) som 
gerne skulle fortsætte bagefter. 
Jeg har altid troet at det ville 
være næsten umuligt at finde og 
ordne "årsagen til denne mærkvær¬ 
dighed, men det var overraskende 
simpelt, det kan rettes med blot en 
POKE. 

Når programmet har kopieret sig 
selv over i SVI738s ekstra-ram og 
rettet diverse hooks, laver den et 
system reset kald til en MSXDOS 
rutine. System reset (DOS-kald nr. 
0 ) lyder voldsomt men er bare en 
varm-start altså at gå ud 1 klar 
tilstand i Basic. Dette pjat kan 
udskiftes med en almindelig Z80 RET 
instruktion (kode: #C9), og så er 
der ingen problemer mere. I det 
efterfølgende program har jeg 
medtaget Gilvads BEEP rettelse, så 
programmet kan klare begge 
problemer hvis BEEP ikke skulle 
være ordnet allerede. 


BasicSO fix, SVI738: 

100 >SVI-733: BASICSO.OBJ 
110 ’Ordner fejl i BEEP kommando, og 
120 ’laver ordentlig afslutning saa 
130 ’programmet ikke falder ud i Basic 
140 ’efter initialisering. 

150 ’ 

160 ’Rettelse af BEEP vist i 
170 ’Syntaxen nr.l ’8S. 

180 ’ 

190 CLEAR 100,&H9000 
200 BLOAD"BASIC30.OBJ" 
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*-*-*--* BREV FRA BJØRN *-**--* 


210 DATA F7,00,13,11,09 
220 FOR I=&H9409 TO &H94UD 
230 READ A$: POKE I,VAL("&h"+A$) 
240 NEXT I 

250 POKE &H907F,&HC9 

260 ESA VE 11 W80. OBJ", &H9000, &H9B 14 


Man kan sagtens benytte noget af 
videorammen til at gemme tal- og 
tekst-data i, men det er lidt 
besværligt. Med VPOKE og VPEEK 
instruktionerne kan du gemme og 
læse byte værdier i videorammen. 
Hvor meget ram som kan benyttes til 
data afhænger af hvilken skærm mode 
du benytter. Med den alm. 40 tegns 
tekst skærm (SCREEN 0 ) er der meget 
plads, 12K, tilovers som vil kunne 
benyttes. 


I det følgende program vil du kunne 
indtaste tekst som vil gemt fca 
adresse 8192 og fremefter i..video- 
rammen. Ved først at starte fra 
adresse 8192 vil du ikke få 
problemer hvis du benytter 80 tegns 
tekst-skærmen på SVI738, men du kan 
ændre adressen alt efter skærmtype. 
Teksten gemmes fortløbne hvor 
første byte bruges til at gemme 
længden af strengen, og selve 
strengen er gemt på de 
efterfølgende bytes. 

En fordel i forhold til almindelige 
variabler er at det ikke vil blive 
slettet selvom der er en CLEAR 
instruktion i programmet - men man 
skal holde styr på meget mere selv. 
Det viste program kan benyttes på 
både MSX og SVI328 computere. 


Data gem videorarn MSX og SVI328: 

100 ’ Data gern video-rarn 
110 » 

120 VA=8192 

130 A$="":LINE INPUT "? ";A$ 

140 IF A$="" THEN 210 
150 VPOKE VA,LEN(A$) 

160 FOR 1=1 TO LEN<A$) 


170 VPOKE VA+I,ASC(MID$(A$,1,1)) 

180 NEXT I 

190 VA=VA+LEN(A$)+1 

200 GOTO 130 

210 • 

220 VPOKE VA,0 'Slut maerke 
230 ’ 

240 CLS 
250 RV=S192 

260 L=VPEEK(RV) ’Laes laengde 
270 IF L=0 THEN END 
280 FOR 1=1 TO L 
290 PRINTCHR$(VPEEK(RV+I)): 

300 NEXT I 
310 PRINT 
320 RV=RV+L+1 
330 GOTO 260 


En anden måde at gemme specielt 
tekst i videorammen er at benytte 
SPRITEG. SPRITEG(x) er opbygget som 
en array dimensioneret til 256 
elementer hver på 8 tegn, eller 64 
elementer hver på 32 tegn. Bagdelen 
her er at du kun kan bruge 2K og du 
skal være i grafik mode eller 32 
tegns tekstskærmen, for at bruge 
SPRITEG. 

Ram-disc programmet gemmer skam 
både programmet og variabler, den 
gemmer faktisk en kopi af alle 32K 
Basic ram. Jeg tror dit problem er 
at du starter programmet igen med 
RUN som jo sletter alle variabler. 
Bruger du i stedet for GOTO kan du 
køre programmet uden at få slettes 
variabiernes indhold. 

Hele redaktions arbejde med bladet 
og andet arbejde vedrørende klubben 
er frivilligt og helt ulønnet. Vi 
tager alle gerne i mod forslag til 
programmer og artikler, men det er 
vel naturligt at vi først og 
fremmest skriver om det som 
interesserer os. Således er 
Johnny B. meget interesseret i 
musik og skriver derfor meget om 
dette. Vi vil også gerne have meget 
andet i bladet, og vi modtager 
gerne programmer og artikler, fra 
alle som har fået lyst til at se 
sine egne programmer på tryk - send 
os dine programmer og sæt dermed 
dit præg på syntaxen. 


Kurt! 
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■K--M--K"* DEMOER TIL MSX II ■*•■**-■*■* 


DEMOER TIL 
MSX I I 

Hermed et par sm&demoer 
for MSX 2 folket 

Demoerne snuppet fra 
Sony's MSX 2 Basic bog 

af Johnny B 

Først en palette demo 

10 SCREEN5 

20 F0RL-8T01STEP-1 

30 CIRCLE(120,100),L*10+5,L 

40 PAINT(120,100),L,L 

50 NEXTL 

60 K-(K+1)M0D8 

70 FOR L-1T08 

80 COLOR"(L,K,K,0) 

90 K-(K+l)MOD8 
100 NEXTL 
110 GOTO60 

linie 80 kan også være 
80 COLOR"(L,0,K,K) 
eller 

80 COLOR"(L, K, 0 , K) 


Nu en kasse palet demo 

10 S-2:CN-10:L«50:M-L*2 
20 XS-(255MODM)/2:YS"(211M0DM)/2 
30 C0L0R15,0,0:SCREEN5 
40 ' 

50 FORT"OTOTIME-INT(TIME/100)*100:J 
-RND(l):NEXT 
55 1 

60 ■ **** TE gn KASSE **** 

65 1 

70 FOR XOL+XST0255-LSTEPM 
80 FORYC-L+YST0211-LSTEPM 
90 C-0 

100 FORP-LTOOSTEP-S 

110 LINE(XC-P,YC-P)-STEP(P*2,P*2), C 

+1, BF 


120 C"(C+l)MODCN 
130 NEXTP 
140 NEXTYC 
150 NEXTXC 
155 1 

160 ***** DEFINER FARVE **** 

165 * 

170 R"RND(1)*5+2:G"RND(1)*5+2:B"RND 
(1)*5+2 

180 FORP-1TOCN 

190 J-P/CN:R(P)-R*J:G(P)-G*J:B(P)-B 
*J 

200 NEXTP 

2io ***** SKIFT FARVE **** 

215 1 

220 FORK-0TO20 
230 F0RP-1T0CN 

240 COLOR"(J+1,R(P), G (P), B (P)) 

250 J"(J+l)MOD CN 

260 NEXTP 

270 J"(J+l)MOD CN 

280 NEXTK 

290 GOT0170 

Ja det var jo flot 
Nu et lille ur med et 
pendul der svinger 

10 SCREEN5 

20 SETPAGE0,1:CLS 

30 X1-110:X2-100 

40 GOSUB130 

50 SETPAGE0,0:CLS 

60 Xl“140:X2“150 

70 GOSUB130 

80 SETPAGE1 

90 FORT“0TO300:NEXTT 

100 SETPAGE0 

110 FORT-0TO300:NEXTT 

120 GOTO80 

130 COLOR13,3,3:CLS 

140 LINE(75,10)-(175,200) , ,B 

150 PAINT(76,11) 

170 CIRCLE(125,60),40,15 
180 LINE(125,60)—(125,25),1 
190 LINE(125,60)-(115,80),1 
200 LINE(80,120)-(17Q,190),4,BF 
210 LINE(XI,120)-(X2,170),10 
220 CIRCLE(X2,170),12,10 
230 PAINT(X2,171),10 
240 RETURN 

så kan i selv sætte lyd på 
og måske få uret til at gå 







*-*■** DEMOER TIL MSX XI -****• 


En mer af slagsen her en vippe 

10 SCREEN5 

20 SETPAGEO,1:CLS 

30 LINE(70,165)-(180,140),1 

40 SETPAGE1,0:CLS 

50 LINE(70,140)-(180,165),1 

60 CIRCLE (70,70),20,12 

70 PAINT(70,70),12 

80 COPY(50,50)-(90,90),OTO(160,120) 

,0 

90 COPY(50,50)-(90,90),OTO(160,50), 
1 

100 COPY(50,50)-(90,90),OTO(50,120) 

,1 

110 SET PAGEO 

120 FORT-0TO300:NEXTT 

130 SET PAGE1 

140 FORT-OTOSOO:NEXTT 

150 GOTOllO 


Så tegner vi en lille cirkel 
+ en stor oval og ved at skifte 
pages ligner det en sol 

10 COLOR 15,4,4: SCREEN 5,,,,", 0 
20 SET PAGE 0,1:CLS 
30 XC-128:YC-100 
35 ' 

40 ■**** TEGN gul cirkel **** 

45 1 

50 SET PAGE 0,0 
60 CIRCLE (XC,YC),45,10 
70 PAINT (XC,YC),10 
80 FOR T-0 TO 2000:NEXT T 
85 1 

90 '**** tegn hvid oval 

95 1 

100 SET PAGE 1,1 

110 CIRCLE (XC,YC),90,15,,,.7 

120 PAINT (XC,YC),15 

130 FOR T-OTO 2000:NEXT T 

135 ' 

140 ■**** SKIFT SIDE **** 

145 ' 

150 J-1200:DP-0:AF-1 
160 SET PAGE DP,DP:SWAP DP,AP 
170 FOR T-0 TO J:NEXT T 
180 J-J*.8:IF J>1 THEN 160 
185 1 

190 •**** LIGE/ULIGE **** 

195 ' 

200 SET PAGE 1,1 


210 SCREEN.2 

220 GOTO 220 


Så skal vi have lidt UFO'er 
på skærmen 

10 SCREEN 5 

20 SPRITE!(0)-CHR$(&H3E)+CHR$(&H7E) 
+CHR$(&H81)+CHR$(&H81)+CHR$(&HFF)+C 
HR$(&H7E)+CHR!(&H24)+CHR$(&H42) 

30 COLOR ,1,1:CLS 

31 ' 

32 'TEGNE BAGGRUND 

33 ' 

40 Xl-0:Yl-118 
50 FOR L-l TO 14 
60 READ X2,Y2 
70 LINE(X1,Y1)-(X2,Y2),3 
80 X1-X2:Y1-Y2 
90 NEXT L 

100 PAINT (1,119),3 

101 1 

102 'BEVÆGER SPRITE 

103 ' 

110 P-0:X-5:YE-101:C-3:GOSUB 250 
120 P-l:X-45:YE-122:C-4:GOSUB 250 
130 P-2:X-83:YE-87:C-5:GOSUB 250 
140 P-3:X-133:YE-143:C-6:GOSUB 250 
150 P-4:X-168:YE-127:C-7:GOSUB 250 

160 P-5:X-218:YE-96:C-8:GOSUB 250 

161 ' 

162 'ÆNDRE FARVE SPRITE MØNSTER 

163 ' 

170 FOR S-l TO 10 
180 FOR SP-0 TO 5 
190 SC-S+3:IF S-10 THEN SC-0 
200 COLOR SPRITE (SP)-SC 
210 NEXT SP 

220 FOR T-0 TO 300:NEXT T 
230 NEXT S 

240 GOTO 110 

241 ' 

242 'UNDERPROGRAM FOR BEVÆGE SPRITE 
S 

243 ' 

250 FOR Y—8 TO YE 

260 PUT SPRITE P,(X,Y),C,0 

270 NEXT Y 

280 RETURN 

281 ' 
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282 'DATA TIL AT TEGNE BAGGRUND 

283 ' 


290 DATA 26,118,40,139,67,139 
300 DATA 79,104,103,104,128,160 
310 DATA 154,160,161,144,192,144 
320 DATA 200,113,252,113,252,212 
330 DATA 0,212,0,118 


Og nok en UFO der åbner sig 
Og KURT kommer frem 


10 SCREEN 5,1 

20 SPRITE$(0)-CHR$(&H3C)+CHR$(&H7E) 
+CHR$(&H81)+CHR$(&H81)+CHR$(&HFF)+C 
HR$(&H7E)+CHR$(&H24)+CHR$(&H42) 

30 SPRITE$(1)-CHR$(&H58)+CHR$(&H58) 
+CHR$ (&H7E) +CHR$ (&H1A) +CHR$ (&H18) +C 
HR$(&H18)+CHR$(&H0)+CHR$(&H0) 

40 CLS 

50 PUT SPRITE 0,(120,100),8,0 
60 FOR T-0 TO 1000:NEXT T 
70 COLOR SPRITE$(0)-CHR$(&H81)+CHR$ 
(&H81) 

80 FOR T-0 TO 1000:NEXT T 
90 PUT SPRITE 1,(120,96),3,1 
100 OPEN"grp:"FOROUTPUTAS#l 
110 PRESET(115,130):PRINT#1,"KURT" 
120 GOTO 120 


og til disketten 

10 SCREEN5 
20 SETPAGE 0,0;CLS 
30 LINE(20,20)-(20,105) 

40 LINE(20,20)-(60,105) 

50 LINE(20,105)-(60,105) 

60 PAINT(25,50) 

70 COPY (20,20)-(60,105),0 TO "trek 
ant.pie" 

Check selv om ikke filen er 
oprettet på din disk 
Nu tilbage til skærmen 

10 SCREEN 5 
20 SET PAGE 1,1:CLS 
30 COPY "TREKANT.PIC",0 TO (138,10) 
,1 

40 COPY "TREKANT.PIC",1 TO (117,10) 

* I 

50 COPY "TREKANT.PIC",2 TO (138,200 
) , 1 

60 COPY'"TREKANT.PIC",3 TO (117,200 

),1 

70 GOTO 70 

hvis du vil vente og se billedet 
på en gang skal du ændre 
linie 20 og tilføje linie 65 


20 SET PAGE 0,1:CLS 
65 SET PAGE1 

Nok en kopiering 


Så tegner vi en trekant 
og kopierer den på skærmen 

10 S-INT((((ABS(-40)+1)*(ABS(-85)+1 
)*4+7)/8+4)/8)+1 
20 DIMP(S) 

30 SCREEN5 
40 SETPAGE 0,1:CLS 
50 SETPAGE 0,0:CLS 
60 LINE(20,20)-(20,105) 

70 LINE(20,20)-(60,105) 

80 LINE(20,105)-(60,105) 

90 PAINT(25,50) 

100 COPY (20,20)—(60,105),0 TO P 
110 COPY P,0 TO (138,10),1 
120 COPY P,1 TO (117,10), 1 



160 GOTO 160 


10 SCREEN5 
20 SETPAGE0,0 

30 LINE(10,10)-(150,140),8,BF 

40 CIRCLE(90,60),40,1_3 

50 PAINT(90,60),1 
55 FORI-1TO300:NEXTI 
60 COPY(20,30)—(90,100),OTO(160,70) 
,0 

70 GOTO70 

Ja det var lidt MSX 2 rutiner 
jeg håber det kunne give dig 
et par ideer 

Venlig hilsen Johnny B 
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KIM MORSER... 


En gang imellem sker det at man 
fuldstændig mister mælet - og hvad 
gør man så! Ja, man kan jo begynde 
at morse i stedet. Og kan man ikke 
morse, så er hjælpen her: Et pro¬ 
gram hvor igennem kunsten kan 
læres. Programmet lavede jeg engang 
jeg nærede ønske om at kunne komu- 
nikere med min nabo via vandrørene. 

Morse-sproget lærte jeg, og sam¬ 
tidigt lærte jeg at min nabo abso¬ 
lut ikke kan morse. Nå, men ikke 
mere pjat. Programmet har to 
funktioner. Dels kan det skrive på 
skærmen hvad man morser, og dels 
kan det oversætte en skreven 
sætning til morse. Da der er brugt 
div. systemvariabler kan programmet 
ikke umiddelbart bruges på SVI, 
altså kun MSX. 

Af: Kim Andersen 


10 SCREENO,0,0:CLS:KEYOFF 
20 CLEAR1000,50000! 

30 DIMA$(127),B$(90):A$="1 " 

40 HA=15 '..denne variabel bestem¬ 
mer med hvilken hastighed der mor¬ 
ses . 

50 FORT=2TO30 : READA$ (T) : IFA$(T)=”"T 
HENNEXTELSEB$(ASC <A$(T)))= BIN$(T):N 
EXT 

60 FORT=0TOl4:READR,A$ <R):B$(ASC(A$ 
(R)))=BIN$(R) :NEXT 
70 LOCATEO,13:PRINTSTRING$(39,45) ; 
80 HH=HA:HA=0:BB=1:B$=”DU MORSER ME 
D SPACE.":GOSUB200:B$=”TRYK ENTERF0 
R AT KOMME HEROP. ”: GOSUB200: BB=0: HA 
=HH 

90 VPOKE560,62 

100 IFSTRIG(0)THENS=S+1:R=0:GOTOIOO 
110 C$=INKEY$:IFC$=CHR$(13)THENGOSU 
B200 


120 IFS=0THEN140 

130 IFS<HATHENA$=A$+”0”:BEEPELSEA$= 
A$+”l”:BEEP:BEEP:BEEP 
140 S=0: R=R+1: IFLEN (A$) >7THENA$= ”1 ” 
ELSEIFR=INT(HA*.5)THENPRINTA$(VAL(” 
&b”+A$));:A$="l” 

150 IF R=INT(HA#1.5)THENPRINT” ";:A 
$=”1" 

160 IFCSRLIN=23THENFORT=14T023:LOCA 
TE0 ,T: PRINTS.TRING$ (39,32) :NEXT:L0CA 
TE0,14 
170 GOTOIOO 

180 DATA E,T,I,A,N,M,S,U,R,W,D,K,G, 
0,H,V,F,,L,,P,J,B,X,C,Y,Z,Q, 

190 DATA47,1,39,2,35,3,33,4,32,5,48 
,6,56,7,60,8,62,9,63,0,64,.,85,'’,”, 
76,?,115, ! ,97 ,- 

200 VPOKE560,32:VPOKEO,62:X=PEEK(63 
073!):Y=CSRLIN:N=0:M=2 
210 F0RT=0T011:LOCATEO,T:PRINTSTRIN 
G$(39 32):NEXT 

220 IFBB=0THENLOCATE0,0:LINEINPUTB$ 
:IFLEN(B$)>40THEN210ELSELOCATE0,2 
230 IFB$=”"THEN300 
240 F0RE=1TOLEN(B$):C$=MID$(B$,E,1) 

:IFC$=" "THENGOSUB310:F0RR=1TOHAK10 
:NEXTR,E 

250 IFB$(ASC(C$))=”"THENNEXTE:G0T03 
00 

260 IFPEEK(63073!)>31THENPRINT 
270 LOCATEN,M:M=M+1:IFM=12THENM=2 : N 
= N+10 

280 PRINTC$;” :F0RT=2T0LEN(B$(ASC 

(C$))):F0RR=1T0HA#5:NEXT:IFMID$(B$( 
ASC(C$)),T,1)=”0"THENPRINT”.”;:BEEP 
:NEXTELSEPRINT"_”;:BEEP:BEEP: BEEP: N 
EXT 

290 FORR=1TOHA*10:NEXTR,E 

300 L0CATEX,Y:VPOKEO,32:VPOKE560,62 

:RETURN 

310 IFM=2THENRETURN 

320 IFM=11THENN=N+10:M=2ELSEM=M+1 

330 RETURN 
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SVENSKA SIDAN 


SCREEN O 
SCREEN 1 
SCREEN 2 


Bit 3 Bit 4 Bit 1 

0 10 

0 0 1 

10 0 


Denna gång har vi tankt att gå ige- 
nom de nio olika registrerna i 
video processorn. Med dessa regis¬ 
ter kan du styra bla vilken skårm 
du vi 11 ha, storlek på en sprite, 
forstoringsgrad av en sprite och en 
del andra saker som vi hade tånkt 
att gå igenom i denna sista grafik¬ 
kurs . 

Innan vi borjar vi 11 jag påpeka for 
er som undrar att registerna kan du 
endast styra med OUT och IN. I nte 
med VPOKE och VPEEK. Orsaken till 
detta år att man redan kan styra 
detta med andra BASIC-kommandon 
som tex SCREEN. 

Vi borjar forst med en genomgång av 
registerna. 

Register 0: 


Bit 5: Styr om man kan skicka en sk 
interrupt signal till video proces¬ 
sorn eller inte. Ett innebår att 
man kan skicka en interrupt signal 
till videoprocessorn. 

Bit 6: Skoter av och på stangning 
av skårmen. Dvs att du med denna 
bits hjålp kan slåcka skårmen under 
tiden du ritar tex en bild. Ett 
tånder skårmen och 0 slåcker den. 

Bit 7: Med denna kan du vålja om du 
vi 11 ha 4k eller 16k bildminne. 0 = 
4k och 1 = 16k. (Antligen lite 
omvåxling.) 

Register 2: Denna innehåller bara 
ett tal med vårs hjålp man kan 
råkna fram på vilken adress name 
tablen borjar på. 


Detta register har inte så våligt 
många funktioner. Den enda viktiga 
år den som bit nummer 1 har. (Kom 
ihåg att når det gåiler vilken bit 
och vilket register så borjar man 
alltid på noll och råknar uppåt. Så 
når det gålier bit nummer ett så 
menar man den andra biten.) Denna 
bit ska vi gå igenom under register 
1. 

Register 1: 

Bit 0: Sprite forstoring. Om man 
matar in en etta biir spriterna 
dubbelt så stora. En nol la innebår 
foljatkligen att spriten behåller 
sin norma la storlek. 


Register 3: 

Samma som ovan fast denna gång gål¬ 
ier det colour table. 

Register 4: 

Pattern generatorn. 

Register 5: 

Sprite attribute table. 

Register 6: 

Sprite pattern generatorn. 

Register 7: 


Bit 1: Sprite storlek. En etta år 
lika med en 16*16 sprite och en 
nolla en 8*8 sprite. 

Med bit 3 och 4 samt bit 1 i regis¬ 
ter noll styr du instållningen av 
hogupplosnings-, lågupplosnings- 
och textskarm enligt nedanstående 
tabe 11. 


Styr vilken bak- och forgrundsfårg 
du vi 11 ha på skårmen. De fyra 
minst signifikanta bitarna kontrol¬ 
lerar bakgrundsf årgen och de fyra 
mest signifikanta bitarna for¬ 
grundsfårgen . 
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Register 8: 

Bit 7: Denna bit såtts till ett då 
videoprocessorn har ritat ut en hel 
skårmbild. 

c 

Bit 6: Vid vissa ti 1lfål len kan det 
hånda att man har mer en fyra spri¬ 
tes i bredd på skårmen. Foljden av 
detta har nog dom fiesta råkat ut 
for. Nåmiigen att de spriter som 
har hogst spriteareanummer demole- 
ras på ett eller annat sått. Då 
detta intråffar, dvs då det år fem 
eller mer i bredd, såtts denna bit. 

Bit 5: Denna bit såtts till ett då 
två spriter kolliderat. 

Bit 0-4: Talar om vilket spriteare¬ 
anummer den femte spriten har då 
fem al ler fler sprites år på en och 
samma linje på skårmen. 

Så var det slut på denna genomgång 
av de nio registerna och dårmed 
också slut på vår grafikskola. 

Innan jag s lutar ska jag beråtta 
hur man skriver till ett register. 

Studera foljande exempel: 

10 OUT &H81,&HF1 
20 OUT &H81,(7 OR &H80) 

Denna lilla rutin gor så att boks- 
tåverna blir vita på en svart bak¬ 
grund. Notera att i detta fali 
kommer informationen fore adressen 
samt att talet och adressen matas 
ut på samma port. Notera också &H80 
som talar om att man vi 11 skriva 
till ett register. 

Denna gång har jag Magnus fått 
skriva eftersom Joakim gor sin 
vårnp1ikt. 

Aven om detta blev ett hastverk så 
hoppas jag att ni kan få ut någon 
information ur ovanstående. 

Tack for den får gången och må era 
ovånner forsoka gora ett program på 
TI 30. (En miniråknare utan prog¬ 
rammer ingsmoj 1igheter.) 


SFG PLAY AF 
LARS HANSEN 

1 'PROGRAM :SFG PLAY 

2 'FORMAL :SPILLE YK FRA BASIC 

3 'PROGRAMØR:LARS HANSEN 

4 ' 

5 'DENNE PROGRAMDEL LAVER DEN 

6 'NØDVENDIGE MASKINKODE FIL 

7 ' 

10 DATA F3,DB,A8,47,E6,C,7,7,4F,78, 
E6,CF,Bl,32,EB,DA,DB,A8,32,EC,DA,E6 
,C,1F,1F,4F,6,0,21,Cl,FC,9,7E 
20 DATA B7,28,D,21,C5,FC,9,7E,E6,C, 
F6,80,Bl,4F,Bl,4F,3A,EC,DA,5F,E,0,6 
,0,21,C5,FC,9,56,21,Cl,FC 
30 DATA 9,6,4,7E,B7,28,12,6,0,79,F, 
F,AB,E6,CO,AB,D3,A8,7A,E6,FC,BO,32, 
FF,FF,7B,E6,FC,Bl,D3,A8,C5 
40 DATA D5,CD,8F,DA,Dl,Cl,28,36,4,7 
8,FE,4,38,DB,20,10,79,F,F,AB,E6,CO, 
AB,D3,A8,7A,32,FF,FF,7B,D3,A8 
50 DATA C,79,FE,4,38,BO,21,C9,DA,CD 
,DC,DA,18,FE,21,C3,DA,11,80,0,6,6,1 
A,BE,C0,23,13,10,F9,C9,DB,A8 
60 DATA E6,3,32,ED,DA,CD,FA,DA,3E,E 

I, 32,C5,FF,3E,C9,32,C6,FF,21,75,F9, 

II, 76.F9,1,7F,1,36,0,ED,BO,C3 

70 DATA 0,DB,4D,43,48,46,4D,30,46,4 

D,20,55,6E,69,74,20,6E,6F,74,20,66, 

6F,75,6E,64,21,24,CD,FA,DA,7E,FE 

80 DATA 24,C8,E5,CD,A2,0,El,23,18,F 

4,0,0,0, F3,3A, EC, DA, 47,3A, ED, DA, BO, 

D3,A8,C9,3A,EC,DA,D3,A8,C9,CD 

90 DATA EE,DA,3E,C9,32,9F,FD,11,0,D 

2,CD,A8,0,AF,32,32,DC,21,7,0,22,33, 

DC,CD,95,DB,3E,FF,32,32,DC,32 

100 DATA 30,DC,F3,3E,0,11,3,0,CD,99 

,0,3E,1,CD,9 6,0,3E,B,6,0,CD,9C,0,F3 

,3E,14,32,F0,3F,AF,32,F1 

110 DATA 3F,3E,33,32,F1,3F,3E,D,1,0 

,0,CD,9C,0,3E,C9,32,9A,FD,21,B,DC,2 

2, A0,FD,3E,C3,32,9F, FD,CD,FA 

120 DATA DA,FB,C9,3E,0,6,1,11,80,DO 

,CD,9C,0,3E,A,6,1,11,80,81,CD,9C,0, 

3E,15,1,5,1,CD,9C,0,3E 

130 DATA 14,6,1,CD,9C,0,3E,13,1,FF, 

I, CD,9C,0,3E,FF,32,31,DC,C9,3A,32, D 

C, A7,20,A,3E,0,6,0,11,0 

140 DATA DO,CD,9C,0,3E,A,6,0,11,80, 
80,CD,9C,0,3A,32,DC,A7,20,9,3E,15,E 

D, 4B,33,DC,CD,9C,0,3E,14,6 

150 DATA 0,CD,9C,0,3E,13,1,FF,0,CD, 
9C,0,CD,64,DB,C3,EF,DB,3E,0,1,0,81, 

II, 0,80,CD,96,0,3E,9,1 
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160 DATA 0,1,11,0,0,CD,9C,0,3E,FF,3 

2,30,DC,C9,3E,0,1,0,80,11,0,80,CD,9 

6,0,3E,9,1,0,0,11,0 

170 DATA 0,CD,9C,0,3E,FF,32,30,DC,C 

9,F3,DB,A8,32,2F,DC,CD,EE,DA,3A,30, 

DC,A7,CC,95,DB,3E,0,11,1,0,CD 

180 DATA 99,0,3E,1,CD,96,0,F3,3A,2F 

,DC,D3,A8,C9,0,0,0,FF,7,0, D 

1000 'LIGGER MASKINKODEN På PLADS 

1010 FORA-&HDAOOTO&HDC35:READX$ 

1020 POKEA,VAL("&H"+X$)sNEXT 
1030 ' 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSAVE"SFG.BIN",&HDAQ0,&HDC35 


10 

> ************************* 

20 

* * 


* 

30 

i * 

SFG PLAY BY GENIUS 

* 

40 

• * 

- LARS HANSEN - 

* 

50 

• * 


* 

60 

• * 

SPIL DIT YK KEYBOARD 

* 

70 

• * 

DIREKTE FRA BASIC 

* 

80 

• * 


* 

81 

i * 

BRAGT AF JOHNNY B 

* 

82 

• * 

SYNTAXEN 1988 

* 

83 

■ * 


* 

90 

100 

1 ************************* 

1 


110 IFPEEK(&HDA00)< >&HF3THENCLEAR20 
0,&HD000:BLOAD"SFG.BIN",R 
120 WIDTH40:CLS:PRINT" SFGPLA 

Y" 

130 PRINT:PRINT"1) Load voicebank" 
140 PRINT:PRINT"2) Vælg internal vo 
ice" 

150 PRINT:PRINT"3) Vælg loadet voic 

e 

160 A$-INPUT$(1):ONVAL(A$)GOSUB180, 

220,270 

170 GOTO120 

180 PRINT" Indøaet voicebankdiøkette" 
;:A$-INPUT$(1) 

190 PRINT:FILES"*.vog":PRINT:INPUT" 
Filnavn"jFI$ 

200 BLOADFI$,&HC000 
210 RETURN 

220 INPUT"Internal voice";A 

230 POKE&HDC33,A-l:POKE&HDC34,0:'SÆ 

T 

240 POKE&HDC32.0:'INTERNAL VOICE 


250 POKE&HDC30,0:'SKIFT (OVER INTER 
RUPT) 

260 RETURN 

270 INPUT'Voicebankvoice";A 

280 ADS-&HD010 : FORBfc-(&HC020+(A-l) * 

64)TO(&HC020+(A-1) *64+63) :POKEAD*,P 

EEK(BS):AD%-AD%+1:NEXT 

290 P0KESiHDC32,255:'Loadet voice 

300 POKE&HDC30,0:'SKIFT VOICE 

310 RETURN 

DENNE ANDEN DEL BRUGER Så 
MASKINKODE FILEN DU LAVEDE 
I PROGRAM DEL 1 
GODT LARS DU KAN BARE DET DER 


HEJ FRA JOHNNY 

. h 2 D®mant 16 

JennlB Norma opal Rub in 12 

9‘cMAtie standM '< 


P/akat / Plakat 2 

OVERS I GT OVER 
NLQ FRONTER 


Dabba 

er 

A: BOLD 

FOl 

li 

Dette 

er 

A:BRD 

FC2 

Æ 

Dette 

er 

RSB4JSBLE& 

FC3 

/S 

Dette 

er 

AjCRDWAYE 

F€4 

Æ 

Dette 

E R 

A: CAPS 

F 05 

Æ 

Dette 

er 

A : ClRCDS 

F06 

JE 

Dette 

er 

A : CURVY 

F07 

Æ 

□ e t te 

er 

R : CDH1PT5 

FØR 

ff 

□sbbe 

er 


FOS 

Æ 


<BB» 

a: oaopsta 

saø 

fi 

B<»fek<s 

(»ff¬ 

H:P»©£ 

paa 

fi 

llette 

er 

AiFDTDDA 

Vt2 

Æ 

Delte 

er 

RSGLOWORH 

F13 

H 

©e + te 

er 

a: 60Bfc3Sf® 

If 14 

æ 

Dette 

er 

A i IJKBYFSFF 

FIS 

Æ 

$erre 

eø 

V A AØs(3-»« 

8 

•S 

De ir te 

er 

0:HÅND 

FI 7 

Fi 

BDetfe 

er 

AiMODILflDlFQinr 

FIK 

Æ 

Dette 

er 

RtXCE 

F19 

M 


HH 


mm 

1 

Dette 

er 

A :ITALICP 

F21 

Æ 

DEttE 

EF 

RsuiEEcnnc 

FE£ 

R 

Dsbbi 

sr 

AsSUTLXME 

FE3 

ti 

ÅeTTe 

eD 

A:PyCC 

<D24 

L 
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e't 

d 


3=25 

Æ 

IlfihLfi 

ur 

A 


F£f) 

& 

E Hl! £ 

liTi 


G99 

o 

(Qatitia 

ar 


(F2$ 

Æ 

Dette 

er 

A 

SDUARE 

FE3 

Æ 

Dette 

er 

A 

STD 

F30 

Æ 

Dette 

er 

A 

STDL 

F31 

Æ 

Dette 

er 

A 

STDBBC 

F32 

{& 

Dette 

Er 

F 

TFEFTRE 

F33 

FE 

EHatte 

er 

A 

WESTERN 

F3 4 

M 

Dette 

EIT 

m 

SOMRE 

F3S 

ft 

Dette 

er 

A 

BOLDI 

F56 

ff 

Dette 

er 

A 

BOOKTYP 

F37 

t 

Dette 

er 

A 

BiDVWY 

F3S 

Æ 

Dette 

er 

A 

BKDmrs 

f 39 

* 

Dette 

er 

A 

CENTURY 

F40 

Æ 

Dette 

ir 

A 

COHPBLD 

F 4 1 

£ 

Dette 

ar 

A 

CDHPBLK 

F42 

[ 

Dette 

er 

A 

COURIER 

F43 

Æ 

Bette 

er 

a 


*44 

åt 

Det te 

er 

Pi 

HITECH 

FQ-S 

ft 


G* 

A 

MOB, 0.184 

(F4B 

R 

Dette 

e r 

A 

1S0N0RM 

F 4- 7 

£ 

Dette 

e r 

A 

IT AL ICC 

F 4 <? 

S 

De t te 

er 

A 

1TALICE 

Få 9 

Æ 

Dette 

er 

A 

ITALICQ 

FSO 

l 

Dette 

e r 

A 

I I AL I C S 

F 5 l 

l 

Bette 

l t 

& 

*LB®BØ 

f 52 

8. 

ffixettH® 

eir 

A 

©0DTQ.IM11 

IF$3 

Æ 

Dette 

er 

A 

PICA 

F54 

Æ 


&r 

st 


^55 

SÉ 

Dette 

er 

A 

ROCKSTD 

F56 

R 

Dette 

e r 

ft 

SQUftREC 

F 5 7 

£ 

Dette 

er 

fl 

SQUflREE 

F58 

Æ 

Dette 

e r 

A 

SQUAREP 

F59 

Æ 

Dette 

e r 

ft 

5 fl U fl R E S 

F 6 0 

f 

Dette 

er 

A 

STDTEST 

F61 

Æ 

Dette 

er 

A 

STDTYPE 

F62 

[ 

Dette 

e r 

A 

STDC 

F 6 3 

Æ 

Dette 

er 

A 

STDE 

F64 

ffi 

Dette 

e r 

A 

S T D S 

F 6 5 

A 

De t t o 

a n 

fl 

T ALL 

F66 

ffi 

Dette 

c r 

A 

WEST i 

F67 

Æ 


Hvis dCc£ Ccar eet Star printer æg DisCs 
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KLQ (blive cCicte ZHCL Spaæier pé; 32 K 
fær Hscrn Kr 200,- 

KæcttaCst 
Lars Haccsecc 
Statiæcts ve } 6 
3390 Hundested 


ROMER TAL SVI 


10 " XXXXXXXXXXXXXXXXXXXXXXXXX 

2 Q ^ ^ ^ 

30 ' * Romer-tal * 

40 ' 5 « * 

50 ' 

60 ' 

70 ' 

BO ' 

90 OWSTOPGOSUB590:STOPOM 
100 SCREEN,0 sLOCATE,.0:PRIMT:PRINTT 
AB< 3)"Tryk Caps-Lock* 

110 A=PEEK<^HFE38) 

120 IF A=32 THEN 140ELSE110 
130 ' 

140 Z*=SPACE*<5>:SCREEN IsCOLOR 4,1 
,1sCLSsLOCATE 60,20:PRINT Z*"Romert 
al":LOCATE 36,60:CGLOR 13;PRINT Z*" 
For SVI CCCXXVJII":C0L0R 14 
150 LOCATE 24, 130 SPRINT Z*"BY CLAUS 
B. 25-03-1988" 

léO A*=”V10T25503DD#E04CC03E04CC03E 
04CCC 

170 B*="04CDD#ECDEE03B04DDCCC 
180 C*="03AGF#AA04CEDC03A04DDDD 
190 D*="04CDD#ECDEE 

200 PLAY A*sPLAY B*sPLAY A*:PLAY C* 
sPLAY A*:PLAY B*sPLAY D*:PLAY D*:PL 

; 

210 FOR 1 = 0 TO SkHBBS sNEXT I 

22 0 SCREEN 0:LOCATE,,0 sNI DTH 39 s SCR 

EEN,0 s CL ICKOFFs COLOR 5,1 

230 LOCATE 3,5s INPUT"Indtast et rom 

ertal"JA*. 

240 IF A*=""GDT0230 
250 FOR 1=1 TO LEN<A*> 

260 H*=MID*<A*.I,1) 

27 0 IF H*="M" OR H*="D" OR H*="C" O 

R H*="L" OR H*="X" OR H*="V" OR H*= 

"I" THEN 290 

280 CLSs GOTO 230 

290 NEXT 

30 0 A*=" - 11 +A* 

310 FOR A=2 TO LEN<A*> 

320 B$=HID* ( A*,A,1) 

330 0=0 

34 0 IF B*="M"THEN V=10 0 0 
350 IF B*="D"THEN V=500 
360 IF B*=”C"THEN V=100 
370 IF B*="L"THEN V=50 
330 IF B*="V"THEN V=5 
390 IF B*="I"THEN V=1 
400 IF B*="X"THEN V=10 
410 IF 0=1 GOTO 450 
420 B*=MID*<A*,A-1,1) 

430 IF B*=CHR*<32> THEN U=0 
44 0 B=Us 0=1 s GOTO 340 
450 IF B>U THEN T=T+B-<UX2>:GOTO 47 
0 

460 T=B+T 
470 y 

48 0 NEXT:CLS s A*=RI GHT*< A*,LEN < A* >- 1 

490 LOCATE 5,1sPRINT "Romertal: "A* 
500 LOCATE 5,3:PRINT "Decimal :"T 
510 LOCATE 5,5 s PRINT "Hex s "HE 


etter JæCenny B Musite 








- 16 - 


ROMER TAL SVI * AUTOLOADER MSX II 


520 LOCATE 5,7:PRINT "bin : "BI 

N*<T> 

530 LOCATE 5,9:PRINT "okt : "OC 

T*<T> 

540 PLAY“M9T255S9M820103AABBAADD" 
550 FOR 1=0 TO 1500:NEXT 
560 LOCATE 14,12:PRINT "Tryk <ENTER 
>" 


570 A*=INPUT*<1> 

530 IF A*=CHR*<^HD> 
TO 230 ELSE 570 
590 ' 


THEN CLSsT=0:GO 


600 SCREEN0.1:LOCATE,.1 
610 COLOR 15.4,5:PLAY"1255s13m450ag 
agabbb":DEFUSR=39:A=USR< 0> 

620 P0KEkHFA02, 1 
630 END 



AUTOLOADER 
TIL MSX I I 

DENNE AUTOLOADER ER FRA JAPAN JEG 
HÅBER AT DU KAN FA FORNØJELSE AF 
DEN PA DIN MSX 2 MASKINE HEJ 

10 > ********************* 

20 ' * AUTOLOADER * 

30 ' * MSX 2 * 

40 ' * FRA JAPAN * 

50 1 * * 

60 ' * MED BLINK OG DET * 

70 ' * DER GYLLE!!! * 

80 ' * FROM ME TO YOU * 

90 ' * * 

100 •* JOHNNY B MUSIK * 

110 '* SYNTAXEN 88 * 

120 ********************* 


130 ' 

140 'INIT 

150 CLEAR 1500, &HC300: SCREEN0: WIDTH 
80 • CLS 

160 KEY OFF.-DEFINT A-Z 
170 DEF FNC$ (F$) ~LEFT$ (F$+SPACE$ (12 
) , 12 ) 

180 DIM NA$(115) ,ST(115) 

190 FOR V-&H800 TO &HA3F: VPOKE V, 0; 
NEXT: ' blink table clear 
200 VDP(14) ~&H11: VDP(13) -&H81: ' set 
bl ink 

210 RESTORE 250 

220 FOR N-O TO 5 

230 READ Bl (N) , Dl (N) , B2 (N) , D2 (N) 

240 NEXT 

250 DATA 0, &hFF, 1, &HF0,1, &H07, 3, &H8 
0, 3, &H3F, 4, &hFC 

260 DATA 4, &H01,6, &HE0, 6, & HOF, 7, &HF 
F, 8, &H7F, 9, &HF8 

270 XX-0:YY-2:X9-0:Y9-2:LOCATE, , 0 
280 GOSUB 1090:' set command 
290 ' main 
300 CLS 

310 LOCATE 0, 0: PRINT' >> LO ADER for 
MSX 2 ver 1.1 <<" 

320 LOCATE 0 f Y-hl:PRINT'+";STRING$(7 

8 , "-»);»+» 

330 LOCATE 0, 21:PRINT' << Wait a mom 
ent >>" 

340 LOCATE 0, 22 ; PRINT' <ESC> to End 
<RETURN> to Execute" 

350 ' set DMA address 

360 VI-&HC5 : V2-&H0:FC-&H1 A: ' DMA- 

&HC500 

370 GOSUB 1270:A-USR(O) 

380 ' read file name 1 

390 POKE &HC300,ASC("A" )-&H40:POKE 

&HC30C, 0 

400 RESTORE 440 

410 FOR I- &HC301 TO &HC30B 

420 READ D$:POKE I,ASC(D$) 

430 NEXT I 


440 DATA " ?" , " ?" , " ?" , " ?" , " ?" , " ?" , " ? 

il II pil 

450 DATA "B","A" ,"S" 

460 VI -&HC3 ; V2-&H0: FC-&H11 
470 GOSUB 1270:A-USR(O) 

480 IF PEEK (&HC430) -&HFF THEN PRINT 
"No Fi les !!" : LOCA TE, , 0: VDP (14) -0 :E 


ND 

490 NN-0:NA$ 

500 FOR I-&HC501 TO &HC50B 
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AUTOLOADER MSX I I *■#*■*■ 


510 NA$-NA$+CHR$(PEEK(I)) 

520 NEXT 

530 IF MID$(NA$, 9,3) < >" " THENNA 

$-LEFT$ (NAS, 8) +" . " +RIGHT$(NA$, 3) 

540 NA$ (NN) -NA$: ST(NN) -1:NN-NN+1 
550 1 read file name 2 
560 FC-&H12 

570 GOSUB 1270;A m USR(0) 

580 IF PEEK(&HC430)-&HFF THEN GOTO 
660 

590 NA$ 

600 FOR I-&HC501 TO &HC50B 
610 NA$-NA$+CHR$(PEEK(I)) 

620 NEXT 

630 IF MID$ (NA$, 9, 3) < >" " THEN NA 

$-LEFT$(NA$, 8) +" . " +RIGHT$ (NA$, 3) 

640 NA$ (NN) -NA$: ST(NN) -1:NN-NN+1 
650 GOTO 550 
660 ' main 

670 X-0:Y-2:GOSUB 1040:GOSUB 990 
680 FOR 1-0 TO NN-1 
690 LOCATE X, Y:PRINTNA$ (I) : C-Y 
700 X-X+13: IF X>65 THEN X-O.-Y-Y+l 
710 NEXT I 

720 LOCATE 0, C+l:PRINT' +" ; STRING$(7 
8, 

730 LOCATE 0,21:PRINT STRING$(30," 


740 K$-INKEY$ 

750 NN- ( YY-2) *6+XX 
760 IF K$-CHR$(28) 
0 830 

770 IF K$-CHR$(29) 
TO 830 

780 IF K$-CHR$(30) 
TO 830 

790 IF K$-CHR$(31) 
0 830 

800 IF K$-CHR$ (27) 
DP (14) -0: CLS: END 
810 IF K$-CHR$(13) 
820 GOTO 740 
830 • 

840 X9-XX: Y9-YY:XX‘ 


THEN X-l: Y-0: GOT 
THEN X—l: Y-0: GO 
THEN X-0: Y—l: GO 
THEN X-0:Y-l:GOT 
THEN LOCATE , ,0: V 
THEN GOTO 910 

XX+X:YY-YY+Y:X-0 


: Y-0 

850 IF XX<0 THEN XX-5:YY-YY-1 
860 IF XX>5 THEN XX-O.-YY-YY+l 
870 IF YY<2 THEN YY-C 
880 IF YY>C THEN YY-2 
890 GOSUB 1040:GOSUB 990 
900 GOTO 740 


910 ' run 

920 NN-(YY-2) *6+XX:BEEP 

930 IF ST (NN)<>1 THEN GOTO 740 

940 F$-NA$ (NN) : VDP (14) -&HFO 


950 LOCATE 40 , 0, 0:PRINT 1 RUN < " ;F$; 

il ^11 

960 FOR A-0 TO 1000:NEXT 
970 VDP(14)-0:CLS:RUN SS$+F$ 

980 END 

990 ' blink on 

1000 DD-VPEEK(&H800+YY* 10+B1 (XX)) : V 
POKE &H800+YY* 10+B1 (XX). Dl (XX) OR D 
D 

1010 DD-VPEEK(&H800+YY*10+B2 (XX) ) : V 
POKE &H800+YY*10+B2 (XX), D2 (XX) OR D 
D 

1020 IF XX-1 OR XX-3 THEN VPOKE &H8 
00+YY*l 0+B1 (XX) +1. &HFF 
1030 RETURN 
1040 ' blink off 

1050 DD-VPEEK(&H800+Y9*! 0+B1 (X9) ) : V 
POKE &H800+Y9*10+B1 (X9), NOT (D1(X9) 
) AND DD 

1060 DD-VPEEK(&H800+Y9 *10+B2 (X9) ) : V 
POKE &H800+Y9 *10+B2 (X9), NOT (D2(X9) 
) AND DD 

1070 IF X9-1 OR X9-3 THEN VPOKE &H8 

00+Y9*10+Bl (X9) +1. &H0 

1080 RETURN 

1090 ' system call 

1100 RESTORE 1150 

1110 FOR 1-0 TO 30 

1120 READ N 

1130 POKE &HC400+I.N 

1140 NEXT 

1150 DATA &hll,&hOO,&bOO 

1160 DATA &hOE, &h00 

1170 DATA &hCD, &h7D, &hF3 

1180. DATA &h32.&h30.&hC4 : ' LD( 

C430h),A 

1190 DATA &hED,&h43,&h31,&hC4: 1 LD( 
C431h),BC 

1200 DATA &hED, &h53, &h33, &hC4: 1 LD( 
C433H), DE 

1210 DATA &h22, &h35, &hc4 :' LD( 
C435H), HL 

1220 DATA &hDD. &h22, &h37, &hC4: 1 LD( 
C437H), IX 

1230 DATA &hFD,&h22,&h39,&hC4: ' LD( 

D$39H).IY 

1240 DATA &hC9 

1250 DEFUSR-&HC400 

1260 RETURN 

1270 ' set work 

1280 POKE &HC402. VI 

1290 POKE &HC401, V2 

1300 POKE &HC404.FC 

1310 RETURN 

1320 ' bot tom 
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LØST OG FAST MED JOHNNY B GOOD 
****************************** 

YAMAHA har i sommer lanceret en ny 
Musik Computer som er blevet 

præsenteret for offentligheden i USA 
Computeren hedder Cl og er en MS 
DOS Compatible IBM Standard. 

Hoved CPU er en (80286) chip med 
variable takt freq og bliver 

understøttet med en chip (DMA 

Controller) til Ramstyring. 

Indbygget er en LC Skærm med 
opløsningen 649 * 400 punkter. 
Tastaturet arbejder både med alm IBM 
tegnsæt samt specielle Musikalske 
tegn, til Musisk anvendelse er 
endvidere to skyde potmetre som kan 
styre forskellige ting såsom Tempo, 
Vol urne, Pitchbend etc. 

Af ydre tilslutninger forefindes 
Monitor tilslutning ,CRT tilslutning 
Parallel printerport, + 2 Serielle 
rs-232 tilslutninger såvel som Midi 
2 * Midi In, 1 * Midi Through, og 

8 * Midi Out + styresystemet SMPTE 

In/Out. 

Prisen for denne tingest bliver 
desværre nok skyhøj hvis jeg ellers 
kender YAMAHA ret. 

Alle numre fra Composer II og Midi 
Recorder kan uden videre indlæses i 
TWENTY-FOUR fra Steinberg et program 
til Atari Computeren, Fantastisk. 

Hvis nogen er interesseret kan jeg 
levere en tegning til Midi Out 
direkte fra Joystick Porten, den er 
simpel at bygge, det dyreste er 
faktisk stikkene og i materialet 
står et sådan Interface i ca Kr 40,- 
endvidere har jeg et program fra 
Japan der kan sende Data ud via 
dette stik til dit Midi Instrument, 
eller Computer nr 2, Der behøves 
INTET SFG modul det kan klares af 
enhver MSX med en joystick port. 
Interesserede kan sende mig en 
frankeret Svarkuvert vedlagt en 
formatteret disk og du er på vej. 


Dette fører naturligvis videre idet 
en god ven af mig Per i Åbenrå er 
ved at bygge mig et Midi In/Out 
interface til Joystick porten, det 
er faktisk færdigt blot mangler han 
nogle Opto Kopiere som er svære at 
skaffe. Når den er færdigt vil I få 
et Tilbud på et sådant device og det 
bliver ikke dyrt. 

Lars vil naturligvis også få et 
sådant Interface og han har lovet at 
udvide Midi lo eller tilpasse det så 
det kan køre med dette Interface, 
det betyder at i alle kan komme til 
at køre Midi uden at investere i et 
SFG Modul og det lyder jo spændende, 
foruden at køre med Midi 
Instrumenter kan Midi lo også 
overføre program Data Basic og 
Maskinkode fra en computer til en 
anden og det er jo smart hvis man 
har 2 Computere og kun 1 
diskstation. 

Lars tilbyder nu at du GRATIS kan få 
en version af MIDI 10 på prøve, 
foreløbig kun relevant for SFG 
brugere, der medfølger små 

demoprogrammer i Basic som 
demonstrerer hvad Midi lo kan, Den 
mindste version af Midi lo kan køre 
på Yamaha CX5M uden Ramudvidelse, så 
er du interesseret kan du blot sende 
en frankeret svarkuvert vedlagt 
Disk/Bånd til mig og du er i gang. 
Hvis det er sagen for dig kan du så 
blive reg, bruger det koster kr 
200,- dette giver dig adgang til 
Midi lo bib som indeholder Basic 
programmeringer til Midi lo, et 
stort Manual over Midi lo som er en 
række Call Kommandoer ligesom Makro 
+ den sidste nye opdatering af Midi 
lo, du får derefter besked om hver 
opdatering og oversigt over Midi lo 
Bib tilføjelser og ved at sende en 
Disk + Porto er opdatering GRATIS. 
Den sidste version af Midi lo er 
version nr. 3.0 og det er det 
største MC program Lars endnu har 
skrevet ca 5.5 K alene Gen filen 
fylder over 50 K så der ligger et 
stort arbejde bag dette program. 
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Dette tilbud kommer også til at 
galde når det nye Interface bliver 
fardigt og Lars får tilpasset Midi 
lo dertil. 

Hvad er Midi lo. Jo det er et 
program der udvider Basic med en 
rakke Call Kommandoer således at du 
kan modtage data via Midi In direkte 
til Ram eller sende Data via Midi 
Out direkte fra Ram. Version 3 har 
endvidere Memory styring til MSX 2 
dvs Ram der kan lagges Data i bliver 
udvidet på min Sony F. eks har jeg 
Midi Ram på over 190 K. 

Ang S Ram kredse så kan jeg fortalle 
at lige syd for gransen koster en 32 
K kreds DM 20,- dette gør det jo 
billigere hvis man vil bygge en 64K 
Ramudvidelse. Per Åbenrå vil godt 
bygge nogle hvis I er interesseret. 
Så derfor kontakt mig desangående 
idet der skal vare nogle stykker for 
at det kan betale sig idet et Foto 
print er ret dyrt at få lavet. 

Den tyske Expert klub synger på 
sidste vers, der kommer 1 blad mere 
og så er det slut. 

Jeg venter i øjeblikket på et nyt 
bånd fra Runi Dam farøerne og det 
bliver spandende at høre hvad han 
har fået bikset sammen denne gang, 
Runi er medejer af et lille firma på 
Farøerne som udlejer Instrumenter 
til Optradende som gaster Farøerne 
for at give Koncert, dette giver jo 
Runi adgang til en masse lakre 
instrumenter. 

Hvis nogen er interesseret i at købe 
nye instrumenter til billige priser 
så har jeg en adresse og et Tlf nr. 
i Sønderjylland. 

Vedkommende kan skaffe hjem fra 
Tyskland (Privatimport i dit navn) 
du kan på alle Instrumenter spare en 
del, tit over 30 % i forhold til den 
Danske pris og det er fuldt lovligt 
du betaler Dansk Moms og der er fuld 
Garanti på Instrumenterne. 

Jeg har selv købt et af de nye 
Yamaha HX Orgler og sparet over 
40.000 kr. 


Jeg har fornylig fået kontakt med en 
Japansk fyr og håber at der kommer 
nogle spændende ting hjem, forhåbent 
ligt også noget du kan få glæde af, 
som alle ved er Japan jo et MSX 
S1 araffen Land. 

Så vidt jeg ved har Knud EskiIdsen 
Esbjerg stadig SFG Moduler både 01 
og 05 på lager. 

Fimaet har tlf 05 123022 

Hvis du mangler et Yamaha program 
der ikke kan skaffes mere, så vil 
jeg godt hjælpe dig med en disk 
version. Det finder jeg naturligt da 
Yamaha er fuldkommen ligeglade med 
os MSX folk. Men betingelsen er 
naturligvis at det Originale 
Cartridge ikke mere kan skaffes. 

Ok disse var ordene kan I hygge Jer 
til vi næste gang mødes i min 
spalte. 

Med venlig hilsen fra det Jydske 

Johnny B Musik 
Lindevænget 237 
8600 Silkeborg 
tlf. 06 826698 

OBS skulle Jeres vej falde forbi så 
slå på telefonen, jeg har altid en 
kop kaffe på kanden og meget af 
interesse at vise frem. 
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BINGO SVI * KASSETTE OMSLAG TIL SVI **** 


BINGO SVI 


100 POKE fccHFE38,32: POKE &HFA02, OsPO 
KE kHFA05,0 

110 C0L0R 13,1,1:SCREEN IsPSET <30, 
30),15:DRAW"r195dl311195u131"sPAINT 
<31,31),15:A*=SPACE*<9) 

120 FOR 1=0 TO 3:PRINT:PRINT:NEXT 


130 

GOSUB 

860 







140 

PRINT 

A*" BB 

■ 

1 

u 

■ 


B 

150 

GOSUB 

860 







160 

PRINT 

A*"B 

■ 


bh 

■ 

■ 

■ 

17 ! 

GOSUB 

860 







180 

PRINT 

A* "HH 

■ 

■ 

■ 1 

■ ■ 

B BH 

B 

1 

190 

GOSUB 

860 







200 

H 

PRINT 

A*"B 

■ 

■ 

■ 

■ 

■ ■ 

B 

210 

GOSUB 

860 







220 

PRINT 

A*"BH 

n 

■ 

■ 

■ 

ISBI 

B 

Bo 

GOSUB 

860 







240 

COLOR 

8 







250 

GOSUB 

860 







260 

PRINT 








270 

PRINT 

A*" H 


iasg 

mm. 

IHH 



Bo 

GOSUB 

860 







290 

COLOR 

9 







300 

310 

PRINT 

PRINT 

A*" 1 

_ 


_ 

— 




320 GOSUB860 
330 COLOR 10 
340 PRINT 

350 PRINT A*" HBflBHHHBBBBHHH 

360 GOSUB860 

370 L0CATE 60,180:COLOR 12:PRINT"Pr 
es=. enter to continue 
380 GOSUB860 
390 S0UND 8,0 

400 E*=INKEY*:IF E*=""THEN 400 
410 IF E*OCHR*<fc<:HD> THEN BEEP:GOTO 
37 0 

420 CLS:PRINT 

430 ' Bingo Numbers 

440 N*="" 

450 PRINT A*"Bingo Numbers" : PRINT 
460 G0SUB 870 

470 PRINT A*"How Many Numbers are t 
her e :" ; 

480 S0UND8,0 
490 E*=INPUT$<1> 

500 IF E*=CHR*< 13) THEM GOTO 560 
510 IF E*>"9" OR E*<"0" THEN BEEP:G 
OTO 490 
520 H*=H*+E* 

530 PRINT E*J 

540 IF LEN< H*)> 1 THEN GOTO 560 

550 GOTO 490 

560 ' The Program 

570 ' 

580 E=VAL<H*> 

590 DIN A< E> 

600 CLS 
610 G=0 

620 LOCATE 0,0:IF G=E THEM GOTO 740 


630 PRINT A*"Press a key for next n 
umber" 

640 SOUND 8,0 

650 E*=INPUT*<1):CLS 

660 G=G+1 

670 X=INT< RND< -TIME) XE+1) 

680 IF A<X) = 1 THEN 670 
690 A<X)=1 
700 BEEP 

710 LOCATE 0,24:PRINT A*"Round nr." 
G 

720 LOCATE 0,40:PRINT A*"The last n 
umber:"X 

730 PRINT:GOTO 620 

740 FOR K=0 TO 6:PRINT:GOSUB 870:NE 
XT 

750 PRINT A*"Press To":GOSUB 870 
760 PRINT:PRINT A*" Esc Stop":GO 
SUB 870 

770 PRINT:PRINT A*"Enter Run":SO 
UND 8,0 

780 Eå=INPUT*< 1) 

790 IF E*=CHR*<27) GOTO 820 
800 IF E*=CHR*<13> THEN RUN 
810 BEEP-.GOTO 780 

820 COLOR 15,4,5:SCREEN 0,l:PLAY"t2 
55sl3m450ababaddd" 

830 POKE 4cHFE38,0 : POKE &HFA02, 1 : POK 

E kHFA05,255 

840 DEFUSR=89:A=USR< 0) 

850 END 

86 0 UR=UR+ 1 : BL>=BU+ . 5+RND < -TIME) 

870 SOUND 0,132+ABS<UR+BU-RND<-TIME 
) ) 

88 0 SOUND 7,62:SOUND 8,10:RETURN 


KASSETTE OMSLAG 
TIL SVI 

10 CLEAR 1000 

20 COLOR1,7:SCREEN0.0 :LOCATE,,0:GO 
T040 

30 LOCATEX,Y:PRINTT*:RETURN 

40 X=8:Y=6:T*="X XXXXXXXXX 

XXX" 

50 GOSUB 30 
60 Y=7:T*="X 
X" 

70 GOSUB 30 

80 Y=8:T*="X PRINTER PROGRAM TIL 
X" 

90 GOSUB 30 
100 Y=9:T*="X 
X" 

110 GOSUB 30 

120 Y=10:T*="X KASSETTE-OMSLAG 

X* 

130 GOSUB 30 
140 Y=11:T*=“X 
X" 

150 GOSUB 30 
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KASSETTE OMSLAG TIL SVI 


160 Y=12:T*="* SKREVET TIL SVI 
S" 

170 GOSUB 30 
180 Y=13:T*="X 
*" 

190 GOSUB 30 

200 Y=14:T*="* AF LARS OLSEN 

X" 

210 GOSUB 30 
220 Y=15:T*="X 
X" 

230 GOSUB 30 

240 Y=16:T*="X XXXXXXXXXX 
X X" 

250 GOSUB 30 
260 F0RY=1TO1000:NEXT 
270 REM PRINTER SETOP 
275 Q*=CHR*<42) 

280 X*=CHR*<16) 

290 D*=CHR*<14) 

300 S*=CHR*<15) 

310 L*="- ------------- 

_ _ _ W 

320 REM INDTAST TEXT FOR RYG 
330 : 

340 CLS 

350 L0CATE8.11.1:INPUT"INDTAST BAAN 
D NR.";N* 

360 IF VAL <N*) > 99 OR VAL <N*) < 

1 THEN L0CATE8.11:PRINT" 

”:GOT0350 

370 IF LEN<N*)>1THENN*<1)=LEFT*<N*, 
1) s N* < 2) =R I GHT* < N* ) 

380 IF LEN<N*)=1THENN*<1)=N*:N*<2)= 


510 A*=INKEY*:IFA*=""THEN510 
520 IF ASC<A*) =* 13THEN550 
530 IFA*="N"THENP*="":GOT0440 
540 GOT0510 
550 DIMP*<13).A*<40) 

560 K=13-LEN<P*) 

570 FORA=LEN< P*) + KTOK+1STEP-1 
580 P*<A)=MID*<P*.<A-K),1) 

590 NEXT 

600 FORA=KTO1STEP-1 
610 P*<A)="X" 

620 NEXT 

630 P*<K)="" 

631 CLS:L0CATE8.8SPRINT"TEKSTEN MAA 
H0JST VAERE" 

632 L0CATE8.10SPRINT"20 KAREKTERER 
IALT MED" 

633 L0CATE8.12:PRINT"TAELLER NUMRE 

H 

634 L0CATE8.15 s PRINT"SIDSTE KAREKTE 
R ER MAERKET":L0CATE8,17sPRINT"MED 
EN PIL I OVERSKRIFTEN” 

635 FORY=1T02000 sNEXT 
640 s 

650 REM INDTAST TEKST <LIN) 

660 A=1 s GOSUB 1170 
680 LOCATE..1 
690 FORA=1T040 

700 IFA>20THENB=A-20sELSEB=A 
710 LOCATE12.Bs INPUTA*<A) 

715 IFLEN<A*<A))>20THENGOSUB200Q 
720 IFA=2OORA=4 0THENGOSUB735s GOSUB1 
170 

730 NEXT 


390 LOCATE 4.20.0 s PRINT"OK TAST “CH 

R*< 27)"d""ENTER"CHR*< 27)"q"" / NYT 

NR. TAST "CHR*< 27)"p""N“CHR*<27)"q“ 

400 A*=INKEY*:IFA*=""THEN400 

410 IF ASC<A*)=13THEN440 

420 IFA*="N"THENL0CATE26,2 0 s PRINT" 

":GOT0340 
430 GOT0400 
440 CLS 

450 LOCATE 9.9:PRINT"TESKT TIL KASS 
ETTENS RYG" 

460 LOCATE11.11:PRINT“MAX. 13 KARAK 
TERER" 

470 L0CATE9,15.1:1NPUT P* 

480 IFLEN< P*)>13THENL0CATE11,15:PRI 
NTSTRING*<LEN<P*).32):P*="":GOT0470 
490 IFP*=""THENP*="SPECTRAVIDEO"sLO 
CATE11.15:PRINTP* 

500 LOCATE 4.20.0:PRINT"OK TAST "CH 
R*<27)"d"" ENTER"CHR*<27)"q"" / NYT 
NR. TAST "CHR*< 27)"p""N"CHR*< 27)"q" 


735 LOCATE1.22:IFA=20THENPRINT"TAST 
NR. FOR RETTELSE/"CHR*<27)“d""X"CH 
R*< 27)"q"" FOR FLERE "sELSEPRINT" 
TAST NR. FOR RETTELSE/"CHR*<27)"p“" 
X"CHR*< 27)"q""FOR UDSKRIFT" 

740 LOCATE1 r 21.1:F*="":INPUTF* 

750 IFF*="X"ANDA=20THENRETURN 
760 IFF*="X"ANDA=40THEN830 
770 IFVAL(F*)<1ORVAL(F*)>4OTHENLOCA 
TE2.21-.PRINT" ":F*="" 

:GOT0740 

780 IFVAL(F*XA-190RVAL(F*)>ATHEN81 
0 

790 IF VAL<F*)>2OTHENX=VAL<F*)-20:E 
LSEX=VAL < F*) 

800 LOCATE12.X:A*<VAL<F*))="":INPUT 
A* < VAL < F*)) 

810 L0CATE2.21 SPRINT" 

N 

820 GOTQ740 

830 REM PRINTEER UDSKRIFT 
840 LOCATE..0 
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*-*** KASSETTE OMSLAG TIL SVI ■**■*■* 


850 LPRINTL*JL* 

840 LPRINTX*"00" JQ*JX*“ 12" JQ*JX*" 17 
"1Q*JX*"43"1Q*JX*"44" JQ* 

870 LPRINTX*" 00" ;Q*;X*“ 12" }Q*JD*JX* 
"14N";S*iX**17 "jq*;x*"20"; A*<1);X*" 
43" SQ*JX*"44" JA*<21) JX*"44" JQ* 

880 LPRINTX*" 00"JQ*|X*"12"JQ*;D*JX* 
"14R"JS*lX*" 17"1Q*;X*"2G"JA*<2)JX*" 
43" JQ* ;X*"44" JA*<22) JX*"44" JQ* 

890 LPRINTX*"00"JQ*JX*"12"JQ*;X*"17 
"JQ*JX*"20"JA*<3);X*"43"JQ*JX*"44"J 
A*<23)JX*"44"JG* 

900 LPRINTX*" 00 "jQ*;x*"12 ";Q*jD*jX* 
"14"JN*<1)JS*JX*"17"JQ*jX*"20"?A*<4 
) JX*"43" JQ*J 

910 LPRINTX*"44"JA*<24)JX*"44"JQ* 
920 LPRINTX*"00"jG*;X*"12"JQ*}D*}X* 
"14"JN*<2) JS*JX*"17"JQ*JX*"20"JA*<5 
)}X*"43"iQ*; 

930 LPRINTX*"44"JA*<25)JX*"44"JQ* 
940 LPRINTX*"00";Q*JX*"12"JQ*JX*"17 
"jG*;X*"20";A*<4) ;x*"43" jQ*;x*"44"; 
A*<24)JX*"44"JQ* 

950 LPRINTX*"00" ;Q*;X*" 12" JG*;D*JX* 
" 14*" JS*JX*° 17" JQ*JX*"20" JA* < 7 ) JX*" 
43";Q*;X*"44"ja*<27)jX*"44"jq* 

940 LPRINTX*"00";Q*JX*"12"JQ*JD*JX* 
"14*";S*;X*"17";Q*;X*"20";A*<8);x*" 
43"JQ*;X*"44"}A*<28);X*"44“;Q$ 

970 LPRINTX*"00";Q*;X*"12"JQ*JD*JX* 
"14"JP*<1)JS*JX*"17"JQ*JX*"20"}A*<9 
)JX*"43"JQ*JX*"44"$A*<29)JX*"44"JQ* 
980 LPRINTX*"00"JG*}X*"12";Q*jD*jX* 
"14 "jp*< 2);s*;x*"17 "jq*;x*"20"ja*< l 
0)JX*"43"5 Q* «X*"44"JA*<30)JX*"44"JQ 
* 

990 LPRINTX*"00"JQ*JX*"12"}Q*}D*jX* 
"14"JP*<3) JS*JX*"17"$Q*;X*"20"JA*<1 
1);X*"43";Q*JX*"44"JA*<31)JX*"44"JQ 
* 

1000 LPRINTX*"00";Q*jX*"12"JG*;D*JX 
*"14";P*<4 );s*jx*“17";Q*;X*"20"ja*< 

12) iX*"43";Q*sX*"44";A*<32)jX*"44"j 
G* 

•1010 LPRINTX*" 00" JQ*}X*" 12" JQ*JD*;X 
*"14“lP*<5)JS*lX*"17";G*5X*"20"JA*< 

13) JX*"43"JQ*JX*"44"JA*<33)JX*"44"J 
G* 

1020 LPRINTX*"00";Q*JX*"12"JQ*;D*JX 
*"14";P*<4);s*ix*°17“;Q*jx*"20"jA*< 

14) 1X*"43" JQ*JX*"44" JA*<34) JX*"44" J 
Q* 

1030 LPRINTX*"00"JQ*JX*"12";G*jD*jX 
*" 14" lP*<7) JS*lX*" 17" ;Q*jX*"20" ja*< 

15) lX*"43";Q*JX*"44"JA*<35)}X*"44"J 
Q* 


1040 LPRINTX*"00"JQ*JX*"12"JQ*JD*JX 
*“14"jP*<8)JS*JX*“17"JQ*JX*"20 "ja*< 
14)|X*"43"}Q*;x^"44";A^< 34)|X*"44"; 

1050 LPRINTX^"00"|G$}X^"12";Q^;D^;X 
^"14";P*<9);S*;x^"17"}Q^;X$"20”}A*< 
17)!X*"43"!Q^;X*"44";A*<37);X*"44"J 
Q* 

1040 LPRINTX^"00"iGtfejX*"12"JG^JD^JX 
$“14"5P*<10)JS*;X^°17"JQ*}X^"20"JA* 
<18)5X^"43"5 Q$ »X^"44";A*<38)}X*"44" 
5Qife 

1070 LPRINTX*"00";G$?X*"12";Q*;D*;X 
14";p*<11);S*}X^"17"}Q*;X*"20"JA* 
<19);X*"43"!Q*JX^"44"?A^<39);X*"44" 
;Q* 

1080 LPRINTX$"00"{Q*;X^ M 12"JQ*;D*}X 
*"'14" 5P*< 12) ;S^;X*" 17" SQ*iX*"20" JA* 
< 20)JX*"43"J Q* JX*"44"?A*<40)JX*"44" 
JQ* 

1090 LPRINTX*"00"JQ*JX*"12"JQ*;D*JX 
*"14"JP*<13)JS*JX*"17"J Q* JX*"43“JQ* 
JX*"44"JQ* 

1100 LPRINTX*" 00" J G* JX* 11 12" }Q*JD*JX 
*"14"JS*JX*"17”JQ*JX*"43"J Q* JX*"44" 
JQ* 

1110 LPRINTL* J L* 

1120 LPRINT:LPRINT:LPRINT 
1130 CLS:LOCATE 2,11:PRINT"ONSKES F 
LERE KASSETTE OMSLAG TAST 

J FOR JA ELLER N FOR NEJ":A*=INPUT 
*( 1) 

1140 IFA*="J"ORA*="j"THENRUN270 
1150 IFA*="N"ORA*="n"THENCOLOR 15,4 
,5 s SCREENO,1sEND 
1 140 END 

1170 CLS s PRINT"* * * * INDTASTNING 
AF TEKST * "+CHR*<215) +" * *" 

1180 FORB=1T020 
1190 Y=BsLOCATE1,Y 
1200 IFA+B>1OTHENLOCATEO,Y 
1210 IFA<20THEN N =A-1ELSEN=A 
1220 PRINTN+B"LINIE s" 

1230 NEXT 
1250 RETURN 

2000 LOCATE12.BSPRINTSTRING*<27,32) 
2010 LOCATE12.Bs PRINT"TEKST FOR LAN 
G" 

2020 FORW=1T0500 sNEXT 

2030 LOCATE12.B:PRINTSTRING*<25,32) 

2040 RETURN716 
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#-*-** SVI BIB ■*■*** 


V / 


Liste af programt i11 er 
i SVIBIB : 


©'O □ CD □ EJ 

SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POST GIRONR. er: 

4077385 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Ramdis , Rentereg , 
Rulleteks , Screen Rig , Sdurnp.rnc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 


Bestilling af programmer gøres på 
postgiro hvorpå der skrives hvilke 
programmer du ønsker,samt om du vil 
have disk eller bånd. 

Husk også at skrive din egen adr. 
tydeligt helst BLQKBQfiSI^yEE.. 


PRISER 

Bånd - 25kr 
5.25" Disk - 25kr 
Pris pr. program - 10kr 
Pris pr. programpakke - 15kr 
Udlistning af program - 5kr 


Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp af en meny 
hvilket pro gr am ma n øn s k e r a t kø re 
derefter kan man stoppe og vende 
tilbage til menyen ovs.ovs. 

HUSK når I bestiller programpakker 
at skrive hvilken katarogi I 
ønsker det pågældende nr. fra. 

Programmerne bestilles hos: 

Per Underlien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk . 

For de programmer der optages- i 
SVI BIB. 


Hi Isen Per 


Spil : 



Aladdin 

, Bovla, Bjerg, 

Darts, 

Death, 

Diktator, Frans, 

He 11, 

Kalaha, 

Skyd nu, Oil 


Spil pakker : 


Nr. 1 : 

Male , Pyramide 

, Labyrant 

Nr.' 2 : 

Pusle , Attack 

, Roulette 

Nr. 3 : 

Flight , Sur , 

War 

Nr. 4 : 

Mons , Hopper , 

Star 

Nr. 5 : 

Maori , Myre , S 

1 ange 

Nr. 6 : 

Robot , Pengo , 

Snowbal 1 

Nr. 7 : 

Danmark , Frogger 

Nr. 8 : 

Skyttepro , Lernona 


Musik pakker : 


Nr. 

1 : 

Rock musik 9 numre 

Nr. 

2 : 

Rock musik 9 numre 

Nr. 

3 : 

Musik 9 numre 

Nr. 

4 : 

Lyd Kim , Sound Kim , Orgel 


Andet pakker : 

Nr. 1 : Rio , Lys , Ghost , Børge 
Symtri , Grafik 


Kun til disk 



Budgetpro. , Dbase 1 no.l , Grafen 
Tegnepro. , Te 1efanpro. 
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RANDOM LYDE MSX * SPACE FIGHTER MSX ***-*- 



RANDOM LYDE MSN 

SkØRE LYDE ER LET NOGET FOR DIG 

Hermed et i i ile program med Random 
altså tilfældige lyde på din ffiSX'er 
DU kan endda få Sound tallene vist 
på skærmen så du kan notere dig en 
evt god lyd til genbrug 

1 * Vi/ Ut Vi/ U i VL/ \L/ li-/ vi/ vi/ VI/ vi/ vi/ vi/ 

W * l ^RT m »n ml m m m m m m m m m m m m m m 


2 

' * 


* 

3 

' * 

Random lyde på fftSX 

* 

4 

' # 


* 

5 

' * 

S yncom af Johnny B 

* 

6 

' w 


* 

7 

'# 

SYNTAXEN 1A88 

* 

8 

/ vi/vI/vJ/vi/vl/vl/iL>vl/vl/vi/vJ/vi/vl/vi/vl/vi/vi/vl/il/ Vi/ vV vi/ 

m ml m m m m m m m m m m m m m m m m m m 


q ' 

10 CLS:kEYOFF 

11 LOCATE 13,0:PR INT"SYNC0m":PR I NT 
20 INPUT"Tempo EG maximum (1-255)"; 
G 

30 PRlNT"Vi se parametre på Skærm (1 
»ja 0=ne j)";Q*=I NPUT*( 1) 

40 FOR X=0 ro 13:SOUND X . 0 : NEXT 
45 ' # * 

50 U=RND(-TI IDE) 

GO X=INT(RND(1)*255+1 ) 

70 X2=INT(RND(1)*255+1 ) 

80 y=lNT(RND(1 )*255+1 ) 

00 Y2=INT(RND(1 )*255+1) 

100 Z=INT(RND(1)*255+1) 

110 Z2= I NT(RND(1 )*255 + 1 ) 

120 T=INT(RND(1 )*255+1 ) 

130 R=INT(RND(1 )*31+1) 

140 E=lNT(RND(1)*4 + 1):1F E=>3 THEN 
E=5G 

150 P=INT(RND(1)*G+1 ) 

1G0 W=INT(RND(1 )*15+1 ) 

170 IF E=2 THEN £=48 

180 IF £=1 THEN £=7 

iqO SOUND 0, X2:SOUND1,X;' tone A 

200 SOUND 2,Y2:S0UND3,Y:' B 

210 SOUND 4,Z2; S0UNDS,Z: ' C 

220 SOUND G,R 

230 SOUND 7 ,£ 

240 SOUND 8,17 .-SOUND q , 1 7 : SOUND 10, 
17 :'vol 

250 SOUND 11,TiSOUND 12,P:'ADSR 

2G0 SOUND 13.W:'EG 

270 IF Q*="1" GOTO 300 

280 FOR 1=1 TO (P'2)/4: NEXT:GOTO GO 

200 '- print data - 


300 L0CATE0,5:PR I NT"Par arne tre": A*=" 
SOUND ":Z*=" 

310 PRINT:PRINTA*;" 0,";X2;X«:PR I NT 
A*;" 1 , ";X;Z*:PRINTA*;" 2,";Y2;Z * 
320 PRINTA*;" 3,";Y;Z*:PR INTA *;" 4, 
";Z2;Z*:PRINTA*;" 5,";Z;Z* 

330 PRINTA*;" G,";R;Z*:PR I NT A*;" 7, 
";E:PRINTA*;" 8, 17":PR INTA*;" A, 1 
7":PRINTA*;"10, 17" 

340 PR INTA*;"11 ,";T;Z*:PR INTA*;"12, 
";P;Z *:PR INTA*;"13.";W;Z* 

350 PRlNT:PRINT"Repeter (1=ja 0=nej 
)";;A *=I NPUT*(1 ) :IF A*="1" GOTO 1A0 
3G0 GOTO GO 



SPACE FIGHTER 
FRA JAPAN TIL 
MSN 


2 * 

J SPPCE FIGHTER ET SPIL LIGE * 

4 ’* FRA JAPAN SIKKERT GUF FOR * 

5 '* VORES YNGSTE SPILLEGLADE $ 

6 ’* HEJ JOHNNY B - SYNTAXEN 88 * 

7 ’* * 


8 

? ' 

JO C OL OR 15,4,4: SCREEN2,1: CLEAR 100 
,&HCFFF 
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SPACE FIGHTER TIL MSX ***4f 


20 DEFINT A-Z:B=3:HI=1000:SC=0:S=2: 
SA=1:K=0 

JO REST0RE970:FORI=&HDOOOTO&HD02E:R 
EADD$:D=VAL ("&h " +D$)iPOKEI,D:SUM=3U 
M+D:NEXT:IF SUM<>JJ04THEN SCREEN0:P 
RI NT" data error" sEND 
40 DEFUSR=&HDOOO: DEFUSR1 =8<HD00D: RES 
TORE?10 

50 FORI=OT01O:FORJ-1 TOS:READD$:A$= 
A$+CHR$ (OAL (" &h" +D$) ) :NEXT: SPRI TE$ ( 
I)=A*:A$=""sNEXT 
60 * tegn skærm 

70 OPEN"grps"AS#1:PSET(60,60) , 4 : PR I 
NT#1,"SPACE FIGHTER" 

80 PSET (165, 60) ,4s DRAM" c7ul0r20d5gl 

5rl5d5120u5el5110d515 

90 PAINT(166,58),7 

100 PSET (65, 160) , O: PR I NT# 1 ,"HIT SPA 
CE KEY" 

110 IFSTRIG(O)THEN120ELSE 110 
120 LINE(O,O)-(255,60),2,BF:LINE(O, 
129) - (255, 191) ,2, BF 
130 GOSUB730:GOSUB740 
140 GOTO 780 

150 U=USR(O)sME$=" S TAGE " +RIGHT $(" 

" +STR$(SA),1):G0SUB690 

160 U=USR1(O):IFPOINT(X+3, Y+S)=6 THE 

NJJO 

1 70 IFX1 = <0THENX1 =255: Y1 =INT(RND (-T 
IME)*15)+90 ELSE260 
ISO SP=INT (RND (1)*S) +1: IFSP=3THENY1 
=110 

190 A=SP: ONA GOT0200,210,220,230,24 

0,250: GOTO 200 

200 RESTORE980:GOTO 260 

210 REST0RE990:GOTO 260 

220 RESTORE1000:GOTO 260 

230 RES TORE1010:GO TO 260 

240 RESTORE1020.-GOTO 260 

250 RESTORE1030 

260 IFX+16>=X1ANDX-16=<X1ANDY+16>=Y 

1ANDY-16=<Y1 THENGOSUB420 

270 IFMI=OANDINT(RND(1)*15-8P)=1 THE 

NMI=1:XX=X1:YY=Y1+B 

280 IFMI=1THENXX=XX-20:PUTSPR ITE3, ( 

XX, YY),8, 7:IFXX=<X+8ANDXX>=X-5ANDYY 

=<Y+16ANDYY >=YTHENG0SUB420 

290 IFXX=<0THENM1 =0: PUTSPR ITE3, (0,2 

09) 

300 IFM=OANDSTRIG (O) THENM=1: XM=X: YM 
= Y+8:IFK=OANDY=<65ANDX>=129THEN GOS 
UB760 


310 IFM=1THEN XM=XM+15:PUTSPRITE2, ( 
XM, YM),13,7:IFXM+16>=X1ANDXM-16=<X1 
ANDYM=<Y1+16ANDYM>=Y1-5THEN470 
320 IFXM>=255THENM=0:PUTSPR ITE2, (XM 
,209):GOTO 340ELSE340 
330 GOSUB420 

34O GOSUB370:ST=ST+1:IFM=0ANDM1=OAN 
DST>=400 THEN 490 

350 READRX, RY: XI = XI -RX: Y1 = Y1 -RY: PUT 
SPRI TE 1, (XI ,Y1) ,SP+7,SP:G0T0 160 

360 '- vælg stick 

370 A=STICK (O) :X=X+ (-(A=2) - (A=3) - (A 
=4) + (A=6) + (A=7) + (A=S) ) *5 
3B0 Y=Y+ ( (A=l) + (A=2) + (A=S) - (A=4) - (A 
=5)-(A=6) ) *5 

390 IFX>=140THENX=X-5ELSEIFX=<0THEN 
X=+5 

400 IFY>=110THENY=Y-5ELSEIFY=<55THE 
NY=Y+5 

410 PUTSPRITEO, (X, Y) ,14,0:RETURN 
420 PUTSPR I TEO, (X, Y) ,8,10 
430 PLAY" vlJoJee" , " vl3olee" 

440 B=B-1:GDSUB730:IF0>=BTHEN640 
450 XI=-32:XX=-30:Y=90:PUTSPRITE3, ( 
O,209):RETURN 
460 ' 

470 PLA Y" vi 3o8F?d9" : PUTSPRI TE1, (XI, 
YD ,3,10: SC=SC+100: XI =-32; XM=255: M= 
O .-GOTO 160 

430 ’ - caution 

490 SC=SC+500:X=10: Y=60:PUTSPRITE1, 
(O, 20?):YY=BB:AT=0:ME$= " CAUTION !" :G 
0SUB690:U=14-SA 

500 PLA Y" vi Jol FFFFF', " vi 3o2eeeee" : F 
OR I =235T0200S TEP-3 

510 PUT SPRITES, (I, SO) ,SA+10,8:PUTS 
PRITE9, (1+16,80) ,SA+U ,9:F0RJ=0T010 
0:NEXTJ, I 

520 IFM1 =OANDINT (RND (1) *5-SA)=l THEN 
Ml=l:XX=180 

530 IFMI=1THENXX=XX-20:PUTSPRITE3, ( 
XX, YY),9,7:IFXX=<X+16ANDXX>=X-8ANDY 
=<88ANDY>=72THENG0SUB420 
540 IFXX=<-STHENM1=0 
550 IFM=OANDSTRIG(O)THENM=1:XM=X: YM 
= Y+B:U=U-1 

560 IFM=1THENXM=XM+15:PUTSPRITE1, (X 
M, YM) , 13, 7: IFXM>=200ANDYM=<96ANDYM> 
=80THENAT=AT+l:BEEP:PUTSPRITE1, (XM, 
20?):XM=255:M=0 

570 IFXM>=256THENM=0:PUTSPRITE1, (O, 
209)ELSEIFAT>=1OTHEN590 







- 26 - 


-*-**•*■ SPACE FIGHTER TIL MSX **■** 


580 IFU=<0THENME$="NO A 11SSILE":GOSU 
B690iG0SUB420iU=13-3Ai GOTO 520ELSEG 
0SUB370:GOTO 520 

590 '- mål 

600 ME$="DESTRUCTION" sG0SUB690:PLAY 
" vi 3a 1 t255efefeeee@" , " vl3a3t255efef 
bobos " ; PUTSPR I TES, (0,209> s PUTSPR I TE 
9, (0,209) 

610 PUTSPR ITE8, (200,80) , 8,10: PUTSPR 
ITE9, (216,BO),8,10sSC-SC+1000:FORT'= 
If 02000:NEXTT 

620 S=S+2iME$=" STAGE "+RIGHT$(" "+S 
TR* (SA) ,1) +" CLEAR" iG0SUB690:SA=SA+ 
1 iB=B+1 iG0SUB730sG0SUB750iGO TO 780 

630 '- spil slut 

640 ME$="GAME OVER" iGOSUB690 

650 IFSOHITHENHI =SC 

660 ME$=" SCORE" +RIGHT$(" " +STR 

$ (SC) ,6): G0SUB690 

670 G0SUB740 

680 IFSTRIG(O)THENSC=0iB=3:S=2iSTA= 
1tSA=1tGOSUB750:GOTO 7S0ELSE6B0 
690 LINE(70,140)-(180, 150) , 1, BF 
700 PSET(74,141),1:A=LEN(ME$)i;COLO 
R15iF0RI=1TOA 

710 PRINTU 1,MID$(ME$, 1,1)fiBEEP:FOR 
J=0T020:NEXTiNEXTi FOR 1=0TOl0001NEXT 
i RETURN 
720 ' 

730 LINE (160,1 ) - (210, 10), 1, BFi PSET ( 
163,3) , liCOLOR 7i PRINTU1, " LEFT" ,-RIG 
HT$ (" " +STR$ (B) ,1) i RETURN 
740 LINE(1,1)-(100,10),1,BF iPSET(2, 
2) , 1 lOOLOR 21 PR I NTU 1, " HI -" ;RIGHT$ (" 

" +STR$ (HI) ,7)i RETURN 
750 FOR I^OTOPiPUTSPRI TEI, (0,209)sNE 
XTl RETURN 

76 O PSE T (200,65)1 RES TORE770: FOR 1=1 T 
081 READDi PR I NTU 1, CHR$ (D) ; : NEX Ti PLAY 
" vi3o7ø9F9e9"iSC=SC+500iK=liXl=-32i 
RETURN 

770 DATA98, 121,127, 77, 65,69, 68, 65 
780 IFS>6THENS=6iGOTO 780ELSEST=OtA 
=SAiX=10i Y=90:XI=0 : M=01 Ml=01K=01ONA 
GOTO BIO,860,B90iSA=1iS=2iGOTO 780 
790 READC,DlREADRX,RY iPSET(RX,RY), C 
i FOR 1=1 TODi READRX, RY i LINE- (RX, RY) , C 
tNEXT 

800 RETURN 

810 LINE (O, 60)-(255, 128) , 4, BF s RESTO 

RE850iGOSUB790iG0SUB790 

820 PAINT(1,110),C 

830 G0SUB790s GOSUB790 

840 PAINT (10,110) , Cl PAINT (127, 127) , 

Cl GOTO 150 


850 DATA3, 6,0,100,30,110,60,80,127, 
110,170, 90,200,120,255,100,3,1,255, 
128, O, 128, 12, 3, 0,100, 12, 128, 30,110, 
O, 100,12, 5, 60, 80, 80, 128,255,128,170 
,90,160,124,60,80 

860 LINE (0,60)- (255, 128) ,7, BF i RESTO 
REBBO iGOSUB7901PAINT(1,127),CiFORI= 
112T0125STEP4iFORJ=lT0655-I*5iPSET( 
RND (1 ) *255, I) ,151 NEX TJ, I 
870 GOTO 150 

880 DATA4, 3, 0,110,255,110,255, 128,0 
, 128 

890 LINE(O,60)-(255,128),1,BFi RESTO 
RE900i GOSUB7901 PAINT (10, 127) , Cl GOSU 
B790-.PAINT (10,62) ,CtGOTO 150 
900 DATA6, 7, O, 128, 80, 100, 95,125,140 
,110,180, 125,240,115,255,128, 0,128, 
6,7,0,60, 50,80, 90, 70, 135,85,1 70,68, 
220, 90,255,60, O, 60 

910 DA TAOO, 00, cO, b 2, 7f,26, 9F,e0,00, 
03, Of, 19, ff, Od, 03, 00 
920 DATA03, 04, Od, 13, ff, Od, 03, 01,18, 
40,42, 7e, 40, 2a, 49,89 
930 DA TA02, 04, Oc, fs, fo, Oé i , fs, 03, 32, 
76, da, da, fa, de, 76, 32 
940 DA TAlc, 2 a ,69, ff, 69,69, 7f, 3c, 3c, 
00,00,00,00,00,00,00 
950 DA TAOO, 00, fe, d7, aa, 7f, 3c, 00,1 f, 
le, ff, ff, ff, c2, 31, Of 
960 DATA06, 54,22,88,22, 00, 94,29 
970 DATA21,00, 19, 11,00, el ,01,00, 01, 
cd, 59, 00, c9, 06,08,11,00, el, 21,01, el 
, c5, 01,1 f, 00, la, ed, bO, 12,23,13, cl, 1 
O, f3,21,00, el, 11,00, 19,01,00, 01, cd, 
5c,00,c9 

980 DATA15, 0,15,0, 15,0,15,0,15,0,15 

,0, 15,0, 15,0,15,0, 15,0,15,0,15,0,15 

,0, 15,0, 15,0,15,0,15,0 

990 DATA 15, 0,15, O, 15, 0,15,0,15,0,15 

,0, 15,0, 15,10,15,10, 15, 10,15, -10,15 

, -10, 15,-10,15,0, 15,0, 15,0,15,0,15, 

O 

1000 DATA 15, O, 15,0,15,0, 15,0, 15,0, 1 
5,0, 15,0,15,0, 15,0, 15,0,15,0,15,0,2 
O, 10,20,10,20,10,20, 10,20,10,20,0 
1010 DATA10,0,10,0, 10,0, 10,0,10,0,1 
0,0,30,0,30,0,30,0, 10,0, 10,0,10,0,3 
0,0,30,0,30,0 

1020 DATA 15, 0,15,0, 15,0,15,0, 15,0, 1 
5,0, 15,0,15,10,15, 10,0,10,0, 10,-15, 
O, -15,0,-15,-10,-15,-10,0,-10,0,-10 
,15,10,15,10,20, 0,20, 0,20, 0,20, 0,20 

,o 

1030 DATA 15, 0,15, 0,15, 0,15, O, 40, -10 
, 15,0, 15,0, 15,0,40, 10, 15,0,15,0,15, 
0,15,0, 15,0, 15,0 
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*******-S-******* * * *********************! *************************************** 

* NELJHEITEN * SONDERANØEBOTE * NEW * SPECIAL OFFERS * NOUVEAU * 


***************** 

SONY 

512 kB RAM EXPASIQN MAPPER 

DM 449. 

00 

********** 

* 

PHILIPS NMS 1200 

FLOPPY 

' DISC INTERFACE (All Formats/Al le Formate) DM 239,-* 

* 

720 kB FLOPPY DIS 

C DRIVE 

; (without 

case/ohne Gehaeuse) 



DM 239,-* 

* 

720 kB FLOPPY DI Si 

C DRIVE 

(with case/mit Gehaese) 



DM 279,-* 

* 

720 kB MSX FLOPPY 

DISC 

B DRIVE 





DM 379,-* 

* 

720 KB MSX FLOPPY 

DISC 

A DRIVE 

(Phi 1 i ps 

Inter-f ace) 



DM 599,-* 

* 

2 - 720 kB DISC DRIVES 

+ PHILIP 

S INTERFACE 



DM 699,-* 

* 

PHILIPS NMS 1431 

MSX 

PRINTER / 

DRUCKER 



DM 

669,— * 

* 

SPECTAVIDEO 728 

MSX—1 

COMPUTER 

QWERTY 

Keyboard 


DM 

298,- * 

* 

SANYO MPC 64 

MSX—1 

COMPUTER 

DIN 

Tastatur- 


DM 

298,- * 

* 

PHILIPS VG 3020 

MSX-1 

COMPUTER 

DIN 

Tastatur 


DM 

298,- * 

* 

PHILIPS NMS 8220 

MSX-2 

COMPUTER 

QWERTY 

Keyboard 0 

DD 

DM 

539,- * 

* 

PHILIPS VG 8235 

MSX-2 

COMPUTER 

DIN 

Tastatur 1 

SSDD 

DM 

898,- * 

* 

PHILIPS NMS 8245 

MSX-2 

COMPUTER 

QWERTY 

Keyboard 1 

DSDD 

DM 

999,- * 

* 

PHILIPS NMS 8280 

MSX-2 

COMPUTER 

QWERTY 

Keyboard 2 

DSDD 

DM 

1999,- * 

* 

PHILIPS NMS 8280 

MSX-2 

COMPUTER 

DIN 

Tastatur 2 

DSDD 

DM 

2197,- * 


****** *************************** ****** ************************************ 


* >>»> DYNAM IC PUBLISHER <<<<< * 

* DYNAMIC >>>>>><<<<<< PUBLISHER * 

* * 

* DESKTOP PUBLISHIMG FOR MSX-2 !!!!!!!! * 

* l't was specifically written -for MSX-2 * 

* and has been con vert ed to IBM -format. * 

* * 

* DESKTOP PUBLISHINB FUER MSX-2 !!!!!!! * 

* Els wurde speciel fuer MSX-2 geschrieb.* 

* und jetzt -fuer IBM Computer umgeschrb.* 

* EX K L U S I V E bei H S H * 

* Dyamic Publisher (Deutsch) DM 169,- * 
**************************************** • 

SPECIAL CLUB PRICES FOR MOS MEMBERS I 


N.B. Purchase is NOT compulsary * 

* 

M.O.S. So-ftware Club * 

( CM3SX CGUr-i entated CSDystems ) * 

* 

Annual Subscripti on DM 19.95 * 

Jaehrlich nur DM 19.95 * 

* 

Special Club Pri ces * 

Club Sonderpreise * 

* 

WICHTI6 Es gibt KEIN Kau-fzwang * 


************************************ 
CLUBSONDERPREISE FUER MOS MITØLIEDER 


INDMELDELSESBLANKET 

FORNAVN: __ 

EFTERNAVN: . . • _ 

ADRESSE: _ '.. _ _ - : 

TLFNR.: ___ 

POSTNR. +BY:__ r— 

ALDER: __ 

MASKINE: ' _ 

DIV. UDSTYR: _ 


INTERESSE OMRADE 
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Ring til Martin på tlf. 03 66 06 83 


>> The Hobbit << 

i original version 


I 



MSX BRUGER-KLUBBEN. 
KASSERER PREBEN LUND 
HYLDESPJÆLDET 
TØMMERSTRÆDET 19 
2620 ALBERTSLUND 
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**■*•■* BASIC MED 


PETER 


tæl le til 10. 


BASIC MED PETER 

Mange køber programmer, uden at 
forstå, noget om programmering. 
Ligeså mange ville ønske, at de 
selv kunne lave Deres 

programmer. 

En forudsætning for at kunne 
programmere, er at forstå de 
mest elementære rutiner. 

Nej!! Lad nu være med at sige: 
Dem kan jeg da sagtens! - men 
læs i stedet for videre - selv 
de mest garvede programmører 
har ingen skade af at få 
genopfrisket grundprincipperne 
i de rutiner der oftest 
forekommer. 

DERFOR: Vær med her fra 

begyndelsen til en helt ny form 
for indlæring/genopfriskning. 

Stoffet er ikke orienteret mod 
nogen bestemt computertype, og 
skulle kunne anvendes på langt 
de fleste som medlemmer af 
denne klub repræsenterer. 

Her er et program, som der er 
tre fejl i. Programmet kan, når 
det er fejlfrit, tælle til 10. 

10 FOR A = 1 TO 10 
20 B = B + 10 
30 PRINT C 
40 NEXT C 

Prøv om du kan finde fejlene 
uden at indtaste programmet 
først. Synes du det er for 
svært? Så kan du prøve, at 
indtaste programmet, og du vil 
så få fejlmeddelelse i linie 40. 

Men selvom du retter denne fejl, 
opfylder programmet ikke det 
krav vi stillede til det: At 


For at få programmet til at 
virke efter hensigten skal der 
også rettes i linie 20 og 30. 

Kan du selv regne ud hvad der 
skal rettes? 

Hvad foretager programmet sig 
egent1 i g? 

Linie 10 : vi beder programmet 
om at forøge A med 1 fra 1 til 
10 i en såkaldt FOR-NEXT løkke. 
Løkken starter i linie 10 og 
slutter i linie 40. De mellem¬ 
liggende linier bliver altså 
gentaget 10 gange. 

Linie 20 : Vi beder programmet 
om at lægge en værdi til B. 

Linie 30 : Programmet printer 

inholdet af C ud på skærmen. 

Da vi ikke har tildelt C nogen 
værdi, bliver resultatet en 
række nuller. 

Løsningen på opgaven er altså: 

I linie 30 rettes C til B. 

I linie 20 rettes 10 til 1. 

Den tredie fejl i linie 40 har 
vi allerede omtalt. 

Nu har du fået løsningen 
serveret. Nu skal du selv til at 
tænke. Jeg vil gerne have 
skrevet 2-tabellen ud på een 
vandret linie. 

Find tre fejl så ovennævnte krav 
bliver opfyldt. 

10 FOR A = 1 TO 20 
20 B = A + 2 
30 PRINT B, 

40 NXET A 

Løsningen kommer i næste nummer, 
hvor vi desuden kommer med en 
ny opgave. 

peter. 
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*-*■•*-■*- MSXBIB **** 


mSX bi. 

Som omtalt andet steds i bladet 
kan jeg nu tilbyde jer Basic-compi- 
leren "MSX-Basic-Kun ”, der kan o- 
versætte et basic-program til ma¬ 
skinkode, hvilket medfører en ge¬ 
valdig hastighedsforøgelse. Pro¬ 
grammet kan kun bruges af 64 Kram 
maskiner Til programmet medfølger 
en vejledning. 

Derudover har jeg stadig en 
kasse med original versioner af 
spillet ”Knight Tyme" på bånd lig¬ 
gende som igennem BIB sælges for 
kr. 35,- inkl. forsendelse, hvis 
det købes alene og kr. 25,- hvis 
det købes sammen med andre program¬ 
mer i BIB. 

Ønsker du at komme i besiddelse 
af nogle af de ovenfor eller dem i 
nedenstående liste nævnte program¬ 
mer fra MSX-BIB er fremgangsmåden 
som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Priser: 


15 min. bånd 

- 25 

dkr. 

stk. 

5.25” disk 

- 25 

dkr. 

stk. 

3.5” disk 

- 35 

dkr. 

stk. 

programmer 

- 10 

dkr. 

stk. 


Forsendelses omkostninger er in¬ 
kluderet i disse priser. 

Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5” disk 

koster 8 * 10 + 35 = 115 dkr. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 


Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kim 



Øvrigt indhold i MSX-BIB: 

- "Milas", teksteventyr i Milas's 
slot. Rimelig underholdende. 

- "Nim”, det gamle kinesiske pinde¬ 
spil - hvem tager den sidste pind? 

- "Tank”, 2-mandsspil hvor man skal 
kanonføde hinanden. 

- "Wal1 ” , 2 -mandsspil lignende 

bordtennis. 

- "Seafight”, Skyd jetjagere, der 
angriber ens skib. 

- "Fødag”, sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender”, Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim”, definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski", spiller Bronski Beat's 
'Smalltown boy'. 

- "Musik”, en lang række kendte 
melodier, bl.a. 'Cavatina'. 

- "R2D2 ”, tegner det lille kære 
metal væsen. 

- "Lamborghini", har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow", meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle”, vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 

- "Figflyt", kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 







-*■**•* MSXBIB * MUCOBIB ***■*- 


- "Sprite", tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression”, smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne”, lille tegneprogram med 
de gængse kommandoer. Flot grafik. 

- "Snake Valley”, æd modstanderens 
hale inden han æder din. For 1 
eller 2 spillere. Rigtig sjovt! 

- "Biorytmer", afgør hvordan din 
fysiske, psykiske & intellektuelle 
tilstand .er d.d. 

- "Chopper”, helikoptorspi1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun”, Charlottenlund Travbane 
med orme, flot grafik & lyd. 

- "Demo", oplev hvilke grafiske 
muligheder din MSX indeholder. 

- "Amorti", regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips”, indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- "The Maze", lav en labyrint og få 
en anden til at slippe igennem. 

- "Life”, tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpult. 

- "Halv Tolv”, lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark", lær de danske byers 
beliggenhed, flot grafik. 

- "Oil”, bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle”, sjovt puslespil på 16 
brikker med bevæglige' billeder. 

- "Skyd Hu ”, skeetskydning som du 
kender det fra 01, hurtig grafik. 

- "Pengo", det iskolde gys, klas¬ 
sikeren fra spillehallerne. 

- "Søjle", behandler tal og stiller 
dem op som kurver el. søjler. 

- "Eliza", Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf”, tegner en graf for den 
indtastede funktion, brugervenligt. 

- "Kartotek”, hold styr på dine 
cassette bånd og programmer. 

- "Moon MiMion”, super lækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 


- "Dump", screendump prog. til din 
Epsonkompatible printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase”, hurtig dbase hvor du kan 
sætte alt i system, indbygget ud¬ 
printningsfacilitet. 

- "Screen Store”, kan gemme to 
skærmbilleder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc", arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 


Pi' 


G'. 
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OBS MIJCOBIB... 

Alle programmet som SYNTAXEN har 

BRAGT MED MIT NAVN KAN DU ERHVERVE 
VIA MUCO-BIB 

15 Min. band 25 Dkr. stk 
5.5"" DISK 35DKR. STK 

FORSENDELSE INCLUSI VE 

Bestil hos: 

Johnny B Musik 
Lindevænget 237 
8600 Silkeborg 

Giro nr: 8 41 10 93 

Småprogrammer Dkr. 5 stk 
Almprogrammer Dkr. 10 stk 

Småprogrammer er programmer på i 

SPALTE OG DERUNDER. 

OBS 1 HEL DISK FYLDT MED COMPOSER 
OG VOG PILER 

D KR . INCL DISK + PORTO 150,- 


JOHNNY 





FORBEHOLDT POSTVÆSENET 


J)a i*cr*t* 

Capcorn 

Gunsrnoke - det vilde vesten er blevet 
endnu vildere, sorn sherif kan du kun 
stole på dig selv, oq ramme banditej— 
ne før de rør sig; i"western-byen, 
ved jernbanen, i bjergslugten oq på 
fladen de er alle vegne ' 144.- 

Code Masters 

Pro-Snooker - billiard 1/2 spillere 38,- 

Brnx Simulator - Fuld fart frern gennem 
grusbanen, kør din modstander i sænk 
inden han gør det mod dig, 1/2 spi, 33.- 

Grandsi am 

The Flintstones - Fred oq Barney vil 
bavle, men først må stuen rnales med 
et (pensel-) egern qq holde øje med 
F'ebble5; tag del i l-reds weekend 
problemer, 4 baner; Yabba Dabba Do 123.- 

HAL 

Dunkshot - Basketball, 1/2 spillere 215.- 

Hole in One Professionel - bedste golf, 

2 baner rn. hver 13 huller + lav iqne 
baner, 1/2 spillere ’ 277.- 

Hole in'One Special - MSX2, 2 sæt 18 
huls baner, 18 golfkøller, 3 spil¬ 
typer for 1/2 spillere, 128K 295.- 

Robtek 

Turbo 5000 - Utility cartridqe MSX1&2, 
diskmonitor, turboload bånd 4600 baud, 
printer-dump af alle MSX1&2 skærm¬ 
typer + diverse bånd/disk rutiner 390.- 

U.S. Gold 

lOth Frame - bowling for 1 til 8 spil., 
med korrekte regler oq rn. bla. mulig¬ 
hed for at skrue kuglen 68.- 

Ocean 

Arrnv Moves - med jeep, fly og til fods 
skal du trænge gennem fjendes linjer, 
for at na frem til deres hovedkvarter; 
action spil i flere dele 68.- 

Batrnan - i alvorlig knibe, med problemer 
på stribe, stjålet og delt er den be¬ 
rømte bat-mob i 1, oq batrnan må i sæd¬ 
vanelig stil, klare det hele og finde 
alle dele. The eapea crusader som 
arcade-adventure rn. 31) grafik 68.- 

Firebird 

Elite - det store inter galactiske rurn¬ 
spil i 3D vektor-grafik, flyv fra 
planet til planet for at købe oq sælge 
varer, nedkæmp ru.rn-p irater« en fin 
blandinq af action oq strategi, fyldig 
baggrundshistorie og"instruktioner 

kassette" 215.- , disk 249.- 


Aackosof t. 

Red Liqht of Amsterdam - strippoker rned 
flotte video digitaliserede billeder, 
for MSX2 computere 

kassette 78.- , disk 95.- 


Endurance Garnes 

International Karate - karate hele 

jorden rundt, 1/2 spillere 68.- 


Konarm 

Fl spirit - race for alle med benzin i 
blodet, start i rally klassen og kæmp 
diq op til toppen af forrnula 1, vælg 
selv motor, gearing, karrossari og 
hjulophæng, med ekstra lydchip 277.- 
Salamander- - Konarnis nyeste rurnspil, 
for 1/2 spillere, med nye våben oq 
endnu mere ondskabfulde fjender, rned 
ekstra lydchip 277.- 

Metal Gear - Agent Snakeeye skal finde og 
ødelægge det nye oq ukendte våben i 
Outer’Heaven fortet, på vejen rnå du 
skaffe de nødvendige våben, ammunition 
og adgangskort til at komme rundt i 
hele fortet, proppet rned vagter, over¬ 
vågningsudstyr oq fælder, MSX2 295.- 

Usas - Udforsk østens tempel ruiner med 
din MSX2 computer 295.- 


- flere nye titler: 

180, Add ictabal .1, Arnaroute, Anqleba.ll, 
Bastard MSX2, Chubby Gristie, Coconut 
Capers, Colossus Chess, Danger Mouse, 

Deep Forest MSX2,- Master of the Universe, 
Match Dav II, Pepsi Challenge, Tetris, 
Time and Magi c Trignalogy, Venorn strikes 
back, Voidrunner, World Games.... 


5.25" neutral disk, 2 sidet, 20 stk. 110.- 
3.5" neutral disk, 2 sidet, 10 stk. 140.— 


Al'le priser er inkl. dansk rnorns. Forbehold 
far trykfejl ag pris_ ændringer. GRATIS 
forsendelse ved forudbetaling rned 
check/qiro. Bestillinger under kr. 100.- 
ti 1 lægges dog kr. 20.-"ekpeditionsgebyr. 

Salg til hele Skandinavien, Ved køb fra 
Sveriqe/Norqe indbetal den danske pris pa 
et postgiro-kort, og skriv hvad du ønsker 
på bagsiden. 

Rinq 01 39 39 94 mellem 16-20 mandag til 
lørdag, eller send en check eller en qiro 
pa qironr. 345 96 32 rned dine bestil¬ 
linger. Oplys evt. telefonnr. 


D A T A C R A F T 
N. J. F j o r d s a 11 e 2 0 
DK-1957 Frederiksberg C 
Uf. Ot 393994 
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